Code: Select all
@3, 45 LISTBOX lbLocations VAR sThisLoc OF dlgPatFile ;
ITEMS ::aLocName SIZE 180, 110
FOR liTry = 1 TO ::nLocs
IF ::aLocKey[liTry] = ::sFLKey
lbLocations:nAt = liTry
ENDIF
NEXT
Thanks
xProgrammer
Code: Select all
@3, 45 LISTBOX lbLocations VAR sThisLoc OF dlgPatFile ;
ITEMS ::aLocName SIZE 180, 110
FOR liTry = 1 TO ::nLocs
IF ::aLocKey[liTry] = ::sFLKey
lbLocations:nAt = liTry
ENDIF
NEXT