Seite 1 von 1

Tabellen-Grid: Spalte abfragen geht, Zeile geht nicht!

Verfasst: Fr, 31.01.2014 13:37
von DocCyber
Hallo zusammen,

ich möchte gern die Position einer Tabellenzelle abfragen, wenn ich mit der Maus an eine bestimmte Stelle klicke.
Dazu weise ich dem Ereignis "Maus logelassen" ein Programmsegment zu.

Code: Alles auswählen

 Sub Grid_OnMouseRelease(oEvent)
    xray oEvent.source
end sub

Beim Durchleuchten des Objektes mittels xRay finde ich zwar eine Eigenschaft CurrentColumnPosition, aber ich finde keine Möglichkeit, an die Zeile zu kommen.
Die korrespondierende Eigenschaft CurrentRowPosition existiert nämlich nicht - warum auch immer... :shock:

Kann/würde mir bitte jemand weiterhelfen?

Vielen Dank

P.S. In dem Tabellen-Grid wird übrigens eine Tabellenansicht dargestellt.

Re: Tabellen-Grid: Spalte abfragen geht, Zeile geht nicht!

Verfasst: Do, 13.02.2014 12:50
von DocCyber
Alles muss man selber machen... :)

Leider hat sich niemand mit einer Antwort gemeldet hat. Vielleicht ist es ja auch nur zu trivial.
Jedenfalls habe ich mich nochmals sehr eingehend mit dem Problem befasst und möchte euch an meiner Lösung teilhaben lassen.

Es ist zwar -für mich- nicht richtig nachvollziehbar, warum korrespondierende Eigenschaften an zwei verschiedenen "Stellen" zu finden sind, aber so funktioniert es jedenfalls:

Code: Alles auswählen

Sub ViewGridInfo(oEvent)
	Dim obj as object
	dim CurrentCellRow as integer
	dim CurrentCellCol as integer
	obj = oEvent.source
	' .RowSet.Row ist "1"-basiert !!
	' CurrentColumnPosition ist "0"-basiert !!
	CurrentCellRow = obj.Model.RowSet.Row		  	
	CurrentCellCol = obj.CurrentColumnPosition + 1	
	print "Zellposition (X, Y): "; CurrentCellCol; ", "; CurrentCellRow
end sub
Vielleicht kann's außer mir ja noch jemand gebrauchen...

Bis die Tage!

@Moderatoren: Kann man diesen Thread vllt an die richtige Stelle des Forums verschieben?

Ich hatte mich in der Kategorie geirrt und denke, dass OOo Base / SQL besser geeignet ist.