Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Is this a Y2K problem?
Message
De
03/01/2000 11:13:22
John Baird
Coatesville, Pennsylvanie, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Is this a Y2K problem?
Divers
Thread ID:
00311693
Message ID:
00311693
Vues:
57
Gentlemen:

Below is a method of my program that allows changing index order on a grid header click(). This worked fine until today. I am getting calls from all over the country about the "contains unknown command" error.

The error is occuring on the this line:

SET ORDER TO &lcIndexName &lcOrder

IF I change it to

SET ORDER TO (lcIndexName) &lcOrder

it works just fine. Any idea as to what's up?


*************************************************************
LOCAL lcOrder, lcIndexName

SELECT cQuoteList
WITH this
	IF .cColName = ALLTRIM(tcColName)
		.cColOrder = IIF(.cColOrder = 'DESC', 'ASCEND', 'DESC')
		lcIndexName = .cIndexName
	ELSE
		.cColOrder = 'ASCEND'
		.cColName   = ALLTRIM(tcColName)
		lcIndexName = SUBSTR(SYS(2015), 3, 10)
		.cIndexName = lcIndexName

		INDEX ON &tcField TO &lcIndexName
	ENDIF

	lcOrder = .cColOrder
	SET ORDER TO &lcIndexName &lcOrder
	.LockScreen = .T.
	.grdList.refresh()
	LOCATE
	.LockScreen = .F.
ENDWITH
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform