Browse, bzw. Listbox umsortieren [ERLEDIGT]

[Manfred]

Hi,

ich habe einen Browse, in dem eine unbestimmte Menge Datensätze stehen kann. Jetzt kann es sein, dass die Reihenfolge der Sätze verschoben werden muß. Also entweder vom Anfang ans Ende, oder umgekehrt, oder mittendrin ein paar Stellen höher oder tiefer.

Wie kann man sowas elegant lösen? Entweder über Buttonklick, oder Mouse (drag & Drop).

Ich habe es schon mit einem Zwischensschritt über eine Listbox versucht, verschieben usw. klappt dann, aber dann bekomme ich die Daten nicht wieder zurück in den Browse, bzw. in die Datenbank. Es geht auch um mehrere Felder, die dann umgetragen werden müßten pro Satz. Eine Listbox nimmt ja nur 1 Spalte an.

[Tom]

Willst Du die Anzeige der Datensätze ändern oder deren physikalische Reihenfolge? Für ersteres belege ich den LbClick-Slot der Columnheader und schalte den jeweiligen Index um (sichtbar wird das durch eine farbliche Hervorhebung des Spaltenheaders). Für zweiteres (komplexer und nur bei Tabellen ohne Indexe sinnvoll) reagiere ich im Handler auf LbDown und gestatte Drag & Drop. Ich habe Drag- und DropZone bisher nur bei statischen Elementen ausprobiert.

[Dieter]

Hallo Manfred,

ich würde zuerst die Daten in ein Array einlesen und dann oBrowse über das Array erzeugen. Wenn ein Programmanwender eine Verschiebeoperation über ein Kontextmenü aufruft (rechte Maustaste) dann wird die zugehörige Verschiebefunktion die Arrayzeilen neu anordnen und anschließend mit oBrowse:refreshall() die Daten im Browser neu anzeigen.

[Manfred]

Hm, wie soll ich mich jetzt ausdrücken?

ich habe eine Vater Db und eine Sohn DB. Die Sohn DB wird mittels Scope im Browse gefiltert. Wenn ich jetzt in einem weiteren Browse (Auswahlbrowse) mit der Maus auf einem Satz doppelklicke, dann wird eine Funktion aufgerufen, die den angeklickten Satz in die Sohn DB schreibt und dann den Sohn-Browse aktualisiert. So weit so gut. Mit Doppelklick im Sohn Browse kann man den Satz wieder entfernen. Jeder Doppelklick in dem Auswahlbrowse fügt den neuen Satz im Sohn Browse hinten dran. Er steht also jedesmal am Ende. Jetzt kann es aber passieren, dass einer von den Sohn Sätzen verschoben werden muß, weil er an der falschen Stelle steht.

Das muß so passieren, dass beim nächsten Aufruf der Sohn DB der Satz auch neu einsortiert wird, an der Stelle, an der er vorher "geschoben" wurde. Also müßte er auch physikalisch in der DB umgeschoben werden.
Ich hatte das so gedacht, dass ich ein weiteres Feld habe, in dem die Nummer der Reihenfolge steht. Also habe ich alles in eine Listbox übertragen, dort kann ich dann mit Buttons rauf oder runter den markierten Satz verschieben. Das klappt auch alles, aber ich bekomme die neue Reihenfolge nicht wieder zurück ins Browse.

EDIT: irgendwo muß ja die neue Reihenfolge drin stehen, nur im Debugger kann ich kein Array entdecken, mit der neuen Reihenfolge. Immer nur die alte. (ich arbeite mit DCLISTBOX )

[Manfred]

Hi Dieter,

ich habe zu langsam geschrieben.

das mit dem Array habe ich schon durchdacht, gefällt mir aber nicht, weil es nicht in das Konzept paßt.

Das Problem ist, dass ich 3 Browse nebeneinander habe.

in dem linken ist die Vaterdatei, in der man Browsen kann, die dann gleichzeitig den Browser daneben aktualisiert, mit den Sohndaten. Wenn ich jetzt jedesmal in dem Vaterbrowse mit dem Cursor raus oder runter wandere, müßte jedesmal die DB in ein Array eingelesen, dann angezeigt, danach auf evtl. Änderungen geprüft werden usw. Und das wird wohl den Ablauf recht langsam machen. Zumal man nicht genau sagen kann, wie groß die beiden DB werden

[Tom]

Wenn Dein Sohn-Browse per Scope angezeigt wird, muss es einen führenden Index geben. Hängst Du jetzt einen Datensatz an, wird der dem IndexKey entsprechend einsortiert. Wenn alle gescopten Datensätze im Sohn-Browse den gleichen Schlüssel (z.B. eine Auftragsnummer) haben, steht er zunächst hinten. Das ist so richtig. Wenn Du den neuen Datensatz im Sohn-Browse jetzt an einer anderen Stelle haben willst, musst Du im Prinzip die Datensatzinhalte vertauschen, wenn Du den Schlüssel nicht ergänzen willst (z.B. Str(Auftragsnr)+Str(MeinePosition)). Das ginge einfach durch zwei kleine Buttons (Pfeil nach oben oder unten, 't' und 'u' aus dem Font "Marlett"), die bewirken könnten, dass die Inhalte des aktuellen Datensatzes und desjenigen darüber oder darunter physikalisch vertauscht werden (z.B. über Scatter()/Gather(), natürlich in Kombination mit DbSkip() - wichtig: Datensatznummern merken), danach markiert man mit oBrowse:Up()/Down() jeweils die neue Position des verschobenen Datensatzes. Wenn Du gestatten willst, dass die Position mit Drag&Drop vertauscht wird, müsstest Du (auch wieder bei Verzicht auf einen ergänzten Index) nicht nur Quell- und Zieldatensatz vertauschen, sondern erst den Quelldatensatz an die Zielstelle verschieben (nur die Inhalte!), und danach alle Datensätze ab dem Zieldatensatz (einschließlich!) um einen nach unten bewegen. Oder nach oben, je nachdem.

[Manfred]

OK,

anders gesagt. Das Verschieben in der Listbox mache ich genau so, wie Du es beschrieben hast. Ich habe nur das Problem das neue Ergebnis aus der Listbox heraus in die DB zu bekommen. Das Ergebnis muß doch irgendwo in der Listbox zu finden sein. Ich kriege aber nur die Daten VOR dem Verschieben. Wo hakt es da wohl?

[Tom]

Was ist in Deiner Listbox enthalten? Und wie wird da verschoben? Und was? Und wozu überhaupt eine Listbox?

[Manfred]

ich hole mir das 1.Feld mit der Bezeichnung in die Listbox und Browse ich. Die Listbox habe ich genommen, weil ich es damit anfänglich prima hinbekommen habe, die Sätze zu verschieben.

[Tom]

Das verstehe ich nicht. Eine Listbox enthält Strings, die man mit AddItem() hinzufügt. Was die Listbox tut, das entscheidet man u.a. über die Slots ItemMarked und ItemSelected - und ähnliche Methoden. Eine Verbindung zu irgendeiner Datenbank besteht da erstmal nicht. Bist Du sicher, dass Du von einer Listbox sprichst?

[brandelh]

Hi,

für die Kindtabellen habe ich immer ein zusätzliches Feld, das nur für die Sortierung zuständig ist.
Dieses hat meist 1 oder 2 Nachkommastellen:

cKindID nIndexFeld (Länge muss man sich natürlich gut überlegen )
xxxxxxxx000001
xxxxxxxx000002
xxxxxxxx000003
xxxxxxxx000004

wenn ich nun die "xxxxxxxx000004" nach 2 umsortieren will, replace ich das nIndexFeld mit 2,
Anzeige im Browser abschalten ...
nNeuSortRecNo := recno() // dies ist der zu ändernde Satz
nNeuSortIndexNr := nIndexFeld
refresh der DBF,
replace all nIndexFeld with nIndexFeld+1 for nIndexFeld >= nNeuSortIndexNr .and. recno() <> nNeuSortRecNo
wenn man davor einen SCOPE auf cKindID hat, geht das auch recht schnell.
in der DBF nun auf den gewünschten anzuzeigenden Satz ...
und Browser wieder anschalten und refreshall() !

Diese Methode, die eine Zeile im Hintergrund anders sortiert, muss / kann nun über MAUS drag und drop (habe ich noch nie gemacht) oder per F-Taste (move ein / aus) und AUF / AB gesteuert werden (also F9 -> Verschieben an, AUF oder AB Reihenfolge ändern ... F9 Verschieben ende ...)

[Manfred]

Mist,

wieder nicht korrekt ausgedrückt, bzw. anfangs nicht mit dem Verlauf gerechnet.

Also ich schreibe die Daten aus der Sohn DB in ein Array, das ich dann mit der Listbox anzeige. Dann verschiebe ich die Zeilen in der Listbox. Dann sollte eigentlich in der Listbox, sprich in dem Array der Listbox, die neue Reihenfolge stehen. Tut es aber nicht. Wenn ich mir im Debugger das Array ansehe, dann ist da die alte Reihenfolge drin. Dann lösche ich die Sätze aus der Sohn DB und fülle Sie aus dem Listboxarray in neuer Reihenfolge wieder in die Sohn DB. Soweit die Theorie. Ich kann aber nirgendwo finden, wo denn jetzt die neue Reihenfolge der Listbox abgelegt ist, damit ich diese in die Sohn Db schreiben kann.

[Tom]

Und wie "verschiebst" Du in der Listbox?

[Manfred]

Habe ich mir aus einem Beispiel von Roger abgeschaut.

Code: Alles auswählen

FUNCTION streckenPickList(oListBox,aListbox,nMode)
         LOCAL aSelected := oListbox:getData()
         LOCAL aMove[0]

         IF nMode = 1                                                           // es soll nach oben gehen
            IF aSelected[1] = 1                                                 // Cursor steht schon am Anfang
               RETURN NIL
            ENDIF
         ELSE                                                                   // es soll nach unten gehen
            IF aSelected[1] = Len(aListbox)                                     // Cursor steht am Ende
               RETURN NIL
            ENDIF
         ENDIF
         AAdd(aMove,oListbox:getItem(aSelected[1]))                             // zwischenspeichern
         oListbox:delItem(aSelected[1])                                         // entfernen aus er Listbox
         IF nMode = 1
            aSelected[1]--
         ELSE
            aSelected[1]++
         ENDIF
         oListBox:insItem(aSelected[1],aMove[1])                                // es wird verschoben
         oListBox:setData( {aSelected[1] },.T.)                                 // und direkt an der neuen Stelle angezeigt
         RETURN(.T.)

[Tom]

Vermutlich stehen Deine Daten in "aSelected". Dieses Array aber änderst Du nicht, Du änderst in dieser Funktion nur die Daten der Listbox. Das hier müsstest Du am Ende der Funktion tun, wenn etwas geändert wurde:

Code: Alles auswählen

aSize(aSelected,0)
FOR I := 1 to oListBox:NumItems()
  aAdd(aSelected,oListBox:GetItem(i))
NEXT

[Tom]

Der Einfachheit halber könntest Du aber auch an der Stelle, an der Du dann das Sohn-Browse umsortieren willst, auf diese Weise (NumItems() - GetItem()) vorgehen.

[Manfred]

In aselected steht nur die Nummer der Zeile, in der der Cursor der Listbox steht. Mehr nicht. Der Witz ist aber, dass ich die Verschiebung in der Listbox sehe, aber nirgendwo finden kann.

[Tom]

aber nirgendwo finden kann.

Mit GetItems() sollte das aber möglich sein.

[brandelh]

Hallo Manfred,

was ist verschieben ?

1. getItem() und zwischenspeichern
2. delItem() altes Item löschen ...
3. InsItem() Item an gewünschter Stelle einfügen ...

und das steht doch oben in deiner Methode

GANZ WICHTIG: Die Listbox HAT KEINE DIREKTE VERBINDUNG AUF DEIN ARRAY !

Du selbst musst dich darum kümmern, wenn du z.B. die 5. Zeile verschieben willst,
diese nicht nur mit delItem() in der Listbox, sondern auch mit adel() im Datenarray zu löschen
und bei InsItem() auch zusätzlich aIns() auszuführen. Bei reinem Löschen ist aRemove() aktuell vorzuziehen,
aber du willst ja immer wieder einfügen.
Das Datenarray musst du somit immer syncron mit der Listbox ändern !

[Manfred]

Danke für euren Einsatz.

ich habe das Problem gelöst. Vielleicht etwas kompliziert, aber das Ergebnis stimmt.

Code: Alles auswählen

********************************************************************************
FUNCTION streckenPickList(oListBox,aListbox,nMode)
         LOCAL aSelected := oListbox:getData()
         LOCAL aMove[0]
         LOCAL nI

         IF nMode = 1                                                           // es soll nach oben gehen
            IF aSelected[1] = 1                                                 // Cursor steht schon am Anfang
               RETURN NIL
            ENDIF
         ELSE                                                                   // es soll nach unten gehen
            IF aSelected[1] = Len(aListbox)                                     // Cursor steht am Ende
               RETURN NIL
            ENDIF
         ENDIF
         AAdd(aMove,oListbox:getItem(aSelected[1]))                             // zwischenspeichern
         oListbox:delItem(aSelected[1])                                         // entfernen aus er Listbox
         IF nMode = 1
            aSelected[1]--
         ELSE
            aSelected[1]++
         ENDIF
         oListBox:insItem(aSelected[1],aMove[1])                                // es wird verschoben
         oListBox:setData( {aSelected[1] },.T.)                                 // und direkt an der neuen Stelle angezeigt

// ab hier geht es weiter----------------------------------
         aListbox := {}
         FOR nI := 1 TO oListbox:numItems()
             AAdd(aListbox, oListbox:getitem(nI))                               // jetzt werden die neue Werte in das Array geschrieben
         NEXT
         RETURN(.T.)

das ist der Rest.

Code: Alles auswählen

         FOR nI := 1 TO Len(aListbox)
             nStelle := AScan(aStrecken, aListbox[nI])
             aStrecken[nStelle,5] := nI                                         // jetzt wird die Stelle eingegeben
         NEXT
         ASort(aStrecken,,,{|aX,aY| aX[5] < aY[5] } )                           // und sortieren nach Reihenfolge
         (oStrecken:nArea)->(DbGoTop())
         DO WHILE ! (oStrecken:nArea)->(Eof())
            oStrecken:felderschreiben(oStrecken,,,,,.T.)
            (oStrecken:nArea)->(DbGoTop())
         ENDDO
         nLen := Len(aStrecken)
         FOR nI := 1 TO nLen
             oStrecken:felderleeren()
             oStrecken:idhaltest := aStrecken[nI,2]
             oStrecken:idroute   := aStrecken[nI,3]
             oStrecken:id        := aStrecken[nI,4]
             oStrecken:felderschreiben(oStrecken,.T.)
         NEXT
         (oStrecken:nArea)->(DbGoTop())
         oBrowseStrecken:refreshAll()

[Manfred]

Hi Hubert,

das die Listbox nicht mit dem Array zusammenarbeitet, ist mir auch so eben siedendheiß aufgefallen. Wieder was dazugelernt. =D>