I have put this code in a .prg and modified it a bit. This also gives the violation. Can anyone explain it?
open database zodata\zodata
close tables all
set deleted on
use indiziek
select indiziek
lnDummy=cursorsetprop("Buffering",5)
delete from indiziek where upper(clientnr+indicnr+kd_ziekte)==upper("944450 1B1.4 ")
? _tally &&This gives 1
SELECT IndiZiek
APPEND BLANK
REPLACE Clientnr WITH "944450",;
Indicnr WITH " 1",;
kd_Ziekte WITH "B1.4 ",;
Kd_Bron WITH "",;
BronAnders WITH "",;
Kd_Progn WITH "",;
Mate WITH "",;
Toelichtng WITH "",;
Datum_Diag WITH { - - }
set order to ix1
seek UPPER("944450 1B1.4 ") &&Here it generates index violation
close tables all
close databases all
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement