Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
IF command - order of items - results
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2008 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01513802
Message ID:
01513807
Vues:
58
>Yes FoxPro always evaluates conditions from the left to right. Why do you need a form method to perform SEEK?
>
>>

I guess to have a standard way to send in the other parameters....
LPARAMETERS txItem,tcTable,tcOrder,tlExact
LOCAL lcOldExact,llRetVal

lcOldExact = SET("EXACT")

IF TYPE("tlExact") = "N"
	DO CASE
		CASE tlExact = 0
			SET EXACT OFF
		CASE tlExact = 1
			SET EXACT ON
	ENDCASE
ENDIF

IF !EMPTY(tcOrder)
	IF SEEK(txItem,tcTable,tcOrder)
		llRetVal = .T.
	ELSE
		llRetVal = .F.
	ENDIF
ELSE
	IF SEEK(txItem,tcTable)
		llRetVal = .T.
	ELSE
		llRetVal = .F.
	ENDIF
ENDIF

SET EXACT &lcOldExact

RETURN llRetVal
Tommy Tillman A+ NetWork+ MCP
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform