Hi David, Here's what you wanted to look at. Thanks!
The form is called from a command button on the main form and it is simply:
DO FORM search
the search form is set to modeless,in screen and code below for methods.
********************
ACTIVATE METHOD CODE
********************
DO search.mpr
IF USED('lcSearch')
IF RECCOUNT('lcSearch') = 0
STORE 0 TO lnnumrec
search.cmglnbutton2.command2.enabled = .F.
search.cmglnbutton2.command3.enabled = .F.
ELSE
LnNumrec = RECCOUNT('lcSearch')
search.cmglnbutton2.command2.enabled = .T.
search.cmglnbutton2.command3.enabled = .T.
ENDIF
ELSE
STORE 0 TO lnNumrec
search.cmglnbutton2.command2.enabled = .F.
search.cmglnbutton2.command3.enabled = .F.
ENDIF
search.txtLcstnumb.setfocus
STORE '' TO lcfilter, lcwork, lcstnumb, lcstdir, lcstname, ;
lcparcel, lcownername, lclegaldes1
search.refresh()
*******************
INIT METHOD CODE
*******************
PRIVATE lnvalue, lcwork, ;
lcstnumb, lcstdir, lcstname,lcownername, ;
lclegaldes1, msg, lctemptable
PUBLIC lnnumrec,lcfilter,lcparcel
STORE '' TO lcfilter, lcwork, lcstnumb, lcstdir, lcstname, ;
lcparcel, lcownername, lclegaldes1
LcThorough = 0
ON KEY LABEL f3 search.cmglnbutton1.command1.click() && <> command
ON KEY LABEL f4 search.cmglnbutton1.command2.click() && <> command
*********************
REFRESH METHOD CODE
*********************
IF USED('lcSearch')
IF RECCOUNT('LcSearch') = 0
search.cmglnbutton2.command2.enabled = .F.
search.cmglnbutton2.command3.enabled = .F.
ELSE
search.cmglnbutton2.command2.enabled = .T.
search.cmglnbutton2.command3.enabled = .T.
ENDIF
ENDIF
THISFORM.grdsrchresults.recordsource = ""
THISFORM.grdsrchresults.recordsource = "LcSearch"
THISFORM.grdsrchresults.recordsourceType = 1
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