Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sort on Form Init
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows XP
Divers
Thread ID:
01366984
Message ID:
01366994
Vues:
8
Here is what I entered into the Init. Everything after my set order to statement just pertains to buttons being enabled or not to allow parsing. This SET ORDER TO operator did not seem to do anything. Did I not do it correctly? This table is in fact in the Data Environment. I went in there but am unsure on how to set an order in there.
ThisForm.DtKeyPress = DATETIME()
ThisForm.dtMouseMove = DATETIME()
SELECT fac_mas
SET ORDER TO operator
IF m.swid = " "
	thisform.txtcount.value = Recno()
	thisform.txttotal.value = Reccount()

	IF (recno() == 1)
		thisform.cmdback.enabled = .F.
		thisform.cmdbeg.enabled = .F.
	ENDIF

	IF (RECNO() == RECCOUNT())
		thisform.cmdforward.enabled = .F.
		thisform.cmdend.enabled = .F.
	ENDIF
ELSE
	thisform.txtcount.value = Recno()
	thisform.txtcount.ReadOnly = .T.
	thisform.txttotal.value = Reccount()

	thisform.cmdback.enabled = .F.
	thisform.cmdbeg.enabled = .F.
	thisform.cmdforward.enabled = .F.
	thisform.cmdend.enabled = .F.
	thisform.cmdfind.Enabled = .F.
ENDIF
IF m.movebottom = "YES"
	LOCATE FOR sw_id = newswid
	m.movebottom = "NO"
ENDIF		
thisform.refresh
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform