*listbox properties controlsource: thisform.pr_lookup rowsource: PR_NAME+LEFT(PR_ADDR1,18)+' '+PR_SYSNUM+' '+trans(PR_PHONE,"@R (999) 999-9999") rowsourcetype: 6 - Fields value = ''Listbox keypress event:
LPARAMETERS nKeyCode, nShiftAltCtrl IF LASTKEY() = 13 .or. LASTKEY() = -9 nKeyCode = 13 nShiftAltCtrl = 0 ENDIF IF nKeyCode = 13 .or. nkeyCode = -9 NODEFAULT CLEAR TYPEAHEAD THISFORM.cmdOK.click ELSE DODEFAULT() ENDIFForm Init:
PUSH KEY CLEAR IF !FILE((ddir+"PR_COMP.DBF")) RETURN ENDIF SELECT 0 USE (ddir+"PR_COMP") SET ORDER TO TAG PR_NAME GO TOP setnear = SET("NEAR") SET NEAR ON SEEK carrier.ca_name DODEFAULT() IF !EOF('PR_COMP') thisform.pr_lookup = PR_NAME+LEFT(PR_ADDR1,18)+' '+PR_SYSNUM+' '+trans(PR_PHONE,"@R (999) 999-9999") ELSE IF setnear = "OFF" SET NEAR OFF ENDIF USE IN PR_COMP SELECT CARRIER RETURN .F. ENDIF IF setnear = "OFF" SET NEAR OFF ENDIF ON KEY LABEL F5 DO FORM pr_addr NAME opr_addr LINKED THISFORM.refresh()