DbsetScope + Index [ERLEDIGT]

[AUGE_OHR]

hi,

Und somit wird die Schleife beendet, weil EOF() geliefert wird.
Wie löst man so ein Problem?

naja das Problem hättes du auch ohne SCOPE nur mit Index ...

ich kenne da nur eine Lösung : "nächste" RECNO() vorher herraus finden
bevor du dein "leeren" und DELETE machst und dann GOTO(nNext) statt
einen SKIP.

gruss by OHR
Jimmy

[Manfred]

Hi Tom,

hm, werde ich morgen mal testen, sieht recht simpel aus. Die Schleife reagiert erst, wenn das Enddo angesteuert wird!?

@Jimmy

hatte ich auch zuerst vor, war mir aber nicht sicher.....

Da dachte ich einfach: Frag mal nach, bevor du dir wieder etwas zusammenbastelst.....

[Tom]

Korrigierte Fassung (entspricht ja letztlich Jimmys Vorschlag)

Code: Alles auswählen

lEof := db->eof()
Do while !lEof
    skip
    if !db->eof()
      nRecno := recno()
      else
       lEof := .T.
    endif
    skip -1
    satzleeren und zurückschreiben
    delete
    if !lEof()
      go nRecno
    endif
enddo

(Muß natürlich noch erweitert werden, da Du ja nicht jeden Satz löschen willst.)

Das Problem hat man auch bei Filterfunktionen. Wenn man einen Datensatz bearbeitet, so daß die Filterbedingung plötzlich nicht mehr genügt, feuert Eof() im Anschluß. Desgleichen, wie Jimmy angedeutet hat, bei Seek und einem führenden Index. Plötzlich steht man ganz woanders in der Tabelle - nicht nur bei DbDelete(). Da muß man ein bißchen aufpassen.

[Manfred]

Hi Tom,

habe gerade Deine 1.Fassung ausprobiert. Es klappt.

Prima......

[brandelh]

Hallo Manfred,

wenn du in dieser Schleife alle zum Suchbegriff gehörigen löschen möchtest,
kannst du dbgotop() aufrufen, bis dieser eof() liefert.

Code: Alles auswählen

Setscope blah blah

Do while .t.
    dbGotop()  // springt auf ersten passenden Datensatz
    if eof()
       exit
    endif
    satzleeren und zurückschreiben
    delete
enddo 

[Rolf Ramacher]

Hi Manfred,

möchtest du die gelöschten Datensatze ausblenden? dann mußt du auf jedenfall am Programmanfang ein
Set Deleted On setzen, damit die gelöscht-makierten Datensätze rausgefiltert werden.

[Tom]

Hallo, Rolf, hallo, Manfred.

Die Idee kann man auch umdrehen. Wenn man vor dieser Loop SET DELETED OFF setzt, bleiben die gelöschten Datensätze in Sicht (vorausgesetzt, es gibt KEINEN konditionalen Index der Art FOR !Deleted()), und dann muß man überhaupt nichts machen, kann den Satzzeiger einfach weiterbewegen. Die Datensätze bleiben in Sicht, und am Ende der Schleife setzt man DELETED wieder auf ON.

Edit: Das geht auch gefahrlos bei Multithreaded-Anwendungen, weil SET DELETED thread-lokal ist.

[Manfred]

Hallo Tom,

Stopp, so geht das nicht. Der Satz wird doch vorher genullt und ist somit vom Index her schon am Anfang der Datei. Und dann wird erst gelöscht.

[Tom]

Stimmt ja. Das hatte ich vergessen.