Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
...index does not match the table. Delete the index ...
Message
De
14/01/2004 14:10:29
Dragan Nedeljkovich
Now officially retired
Zrenjanin, Serbia
 
 
À
14/01/2004 12:05:45
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00866376
Message ID:
00866850
Vues:
19
>To all who have responded to this problem - thanks a lot and I have now resolved it.
>
>I stepwise took tables out of the dud forms' DEs, till the forms ran without error, then I reinstated them. It seems that the DE may have been holding some out-of-date tags but this wasn't apparent when you looked at them (i.e. same name but changed slightly since the form was created - but the form still "thought" in terms of the old tag). Putting back the tables with their NEW index format seems to have fixed it. Go figure!

Here's the simple builder-like .prg I use for checking DSes:
=ASELOBJ(aa,2)
FOR EACH oCur IN aa[1].objects
	IF oCur.BaseClass='Cursor'
* give them proper names, cursor1... cursor32 don't mean a thing in PEM window:
		oCur.Name='cur'+PROPER(oCur.Alias)
		IF !EMPTY(oCur.Database)
				OPEN DATABASE (oCur.Database)
		ENDIF
		IF !USED(oCur.alias)
			SELECT 0
			USE (oCur.CursorSource) again ALIAS (oCur.alias)
		ENDIF
		SELECT (oCur.alias)
		IF !EMPTY(oCur.Filter)
			IF TYPE(ocur.Filter)#"L"
				=messagebox('bad filter in '+ocur.Name)
			ENDIF
		endif
		IF !EMPTY(oCur.order)
			IF TAGNO(ocur.Order)=0
				=messagebox('bad order in '+ocur.Name)
			ENDIF
		endif
	ENDIF
endfor

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