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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement