Refresh Method
Class: login
Expand/Collapse source code of procedure Refresh Source Code
*-- Set up our workareas
LOCAL lnOldSelect, lcFldName, lcUserID
lnOldSelect = SELECT()
SELECT (thisform.cTable)
lcFldName = "employee_id"
lcUserID = thisform.cboName.Value

=LOOKUP(&lcFldName, lcUserID,  ;
        &lcFldName, thisform.cTagName)

SELECT (lnOldSelect)