Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
SCAN ENDSCAN does not use index tag
Message
De
21/02/2011 19:08:05
Dragan Nedeljkovich
Now officially retired
Zrenjanin, Serbia
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9
Divers
Thread ID:
01501106
Message ID:
01501197
Vues:
56
>>If you want to change fields that are part of an index - do not set an index
>
>This is exactly what was happening; I was sometimes omitting certain records. I will save the tag, set it to empy, and then reset.
>
>Thank you.

Here's what I was using back in FPD2.6 to avoid that. It was about replacing something for all line items in a document. The date on the file is 30-nov-1997.
	Goto _slzaizm
	_vrklj=eval(_dokje)      && vrednost ključa - key value, dok je - while
	Seek _vrklj
	Calculate min(recno()), max(recno()) to _prvisl, _poslsl;       && first, last
		while _vrklj=Eval(_dokje)
		_oldord=val(sys(21))           && we didn't have tagno() then
		Set orde to 0
		Goto _prvisl
		Scan Next _poslsl - _prvisl+ 1 For _vrklj=Eval(_dokje)
			Select Sklop
			Gather Memvar Memo Fields Mat    && this is generated code, could have multiple fields here
		EndScan
		Set Order To _oldord           && restore tag
		GoTo _slzaizm            && go to the record to change

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform