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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only