Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Trouble with set order
Message
 
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
01289605
Message ID:
01289624
Views:
14
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform