Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Trouble with set order
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
01289605
Message ID:
01289624
Vues:
15
I inserted the browse command and it did verify the order in which I want. I see nothing that could be changing the order afterwards. The rest of the Init code is as follows, but as far as I can tell only deals with browsing buttons.

ThisForm.DtKeyPress = DATETIME()
ThisForm.dtMouseMove = DATETIME()
SELECT atpowner
*SET ORDER TO own_name
SELECT atptanks
*SET ORDER TO tank_id
SELECT atpsite
SET ORDER TO OWNERID && OWNERID
GO TOP
Browse
*SET ORDER TO site_name
IF m.idowner = 0
thisform.txtcount.value = Recno()
thisform.txttotal.value = Reccount()
thisform.cmdbeg.Click

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"
thisform.cmdend.Click
m.movebottom = "NO"
ENDIF
thisform.refresh
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform