Browser Zeilen markieren und temporär merken?

[satmax]

Ich habe da einen SQL Browser der mir 1-x Records anzeigt. Nun möchte ich davon 1-x Records markieren. Wo trage ich mir am besten ein welche Datensätze markiert sind? Es existiert ja jede Datenzeile im Speicher, gibt es da eventuell ein :cargo wo ich mir ein Flag markiert speichern könnte?

Das ganze soll nicht in die DB zurückgeschrieben werden, vielmehr werden die temporär markierten Datensätze anschließend weiterverarbeitet und sollen nicht weiter markiert bleiben.

[Martin Altmann]

Moin Markus,
hast Du da die Daten nicht eh' in einem Array? Eine Spalte mehr dazu und mittels .T./.F. als Inhalt den Markiert-Modus hinterlegen.

Viele Grüße,
Martin

[satmax]

Moin Markus,
hast Du da die Daten nicht eh' in einem Array? Eine Spalte mehr dazu und mittels .T./.F. als Inhalt den Markiert-Modus hinterlegen.

Viele Grüße,
Martin

Noch nicht. Ich wollte mir das reinschaufeln in ein Array sparen und dachte es gibt so eventuell auch einen einfachen Weg. Wenn nicht wird wohl ein Array werden.

[AUGE_OHR]

Noch nicht. Ich wollte mir das reinschaufeln in ein Array sparen und dachte es gibt so eventuell auch einen einfachen Weg. Wenn nicht wird wohl ein Array werden.

du musst ja gar nicht alle Daten in ein Array schaufeln ... es reicht doch aus wenn du dir "merkst" welche Datensätze ( Row / Col ) markiert wurden. Allerdings mit einem normalen Browser wird dir aber noch nicht viel nützen. Du musst schon tiefer nach Ownerdraw gehen.

Am besten mit einer eigene Class MySQLBrowse FROM XbpBrowse. jetzt musst du nur noch das Array in o:customDrawCell vergleichen mit

Code: Alles auswählen

METHODE MySQLBrowse:customDrawCell( oPS, aInfo )
...
   nRow := aInfo[ XBP_DRAWINFO_ITEM ]
   IF ASCAN(::aMarker,nRow) > 0
       lMarker := .T.
   ELSE
       lMarker := .F.
   ENDIF

und kannst dann entscheiden was du "malst"

[Wolfgang Ciriack]

Oder du legst dir ein leeres Array aTmp an, in das du beim Markieren die Recordnummer schreibst.
Eine Farbbedingung für die markierte Zeile wäre dann {|| iif(Ascan(aTmp,db->(recno()))>0, farbig, nichtfarbig)}

[Jan]

Oder du legst dir ein leeres Array aTmp an, in das du beim Markieren die Recordnummer schreibst.
Eine Farbbedingung für die markierte Zeile wäre dann {|| iif(Ascan(aTmp,db->(recno()))>0, farbig, nichtfarbig)}

Genau so mache ich das auch.

Jan

[georg]

Hallo,


nein, Ihr macht das nicht so. Weil hier nämlich ein SQL Browse (!) verwendet wird, und da gibt es Probleme mit dem recno(). Solange das Result Set unverändert ist, geht das hin. In dem Moment, wo das Result Set neu eingelesen wird, sind die generierten Satzpointer ungültig.

Aber der Ansatz ist vom Grundsatz her richtig, nur muss eben der Primary Key in dem Array abgelegt werden.

[Jan]

Georg,

ob ich jetzt RecNo() oder PrimaryKey nehme ist doch gleich. Ich merke mir eine eindeutige Kennzeichnung des Satzes.

Jan

[georg]

Hallo, Jan -


genau darum geht es. Beim Zugriff auf SQL-Tabellen (Result Sets) gibt es eine simulierte recno(), aber die ist nicht eindeutig. Darum mein Hinweis, dass der Primary Key verwendet werden muss (sofern es einen gibt). Ansonsten kann man sehr seltsame Resultate bekommen.

[Wolfgang Ciriack]

Ich hatte einfach mal das SQL überlesen

[satmax]

Danke für alle Tipps, das mit SQL ist mir klar, ich habe in jeder Tabelle einen unique key.

Wenn ich's fertig habe, werde ich mich nochmals kurz melden wie ich es gelöst habe.

[brandelh]

Hallo, Jan -
genau darum geht es. Beim Zugriff auf SQL-Tabellen (Result Sets) gibt es eine simulierte recno(), aber die ist nicht eindeutig.
Darum mein Hinweis, dass der Primary Key verwendet werden muss (sofern es einen gibt).
Ansonsten kann man sehr seltsame Resultate bekommen.

darum spendiere ich jeder Tabelle ein Feld RECNO als PrimaryKey bzw. autoincrement

[satmax]

Da die Daten aus verschiedensten Tabellen kommen und das mit einem SQL Statement nicht sinnvoll zu lösen ist, habe ich zwei Select daraus gemacht und das ganze in ein Array eingelesen. Es werden selten mehr wie ca. 200 Datensätze eingelesen werden, auf keinen Fall können es über 1000 werden.

Da ich ja auch TopDown verwende, habe ich dazu einfach tdArBrow() genommen. Eine Spalte mit einem Marker hinzugefügt, dann noch ein Codeblock:

Code: Alles auswählen

bColor := {|xVal,oCol,nRow| iif(oDlg:aData[oDlg:oBrows:nCurEl][2]==.t.,{tdDRD,tdYEL},{nil,nil}) }