假如表单有Text1、Text2、Text3分别输入准考证号、姓名、身份证号码,程序可以这样编写
lcExpr='.T.'
IF !EMPTY(THISFORM.Text1.VALUE)
lcExpr=" AND 准考证号=["+ALLTRIM(THISFORM.Text1.VALUE)+"]"
ENDIF
IF !EMPTY(THISFORM.Text2.VALUE)
lcExpr=" AND 姓名=["+ALLTRIM(THISFORM.Text2.VALUE)+"]"
ENDIF
IF !EMPTY(THISFORM.Text3.VALUE)
lcExpr=" AND 身份证号=["+ALLTRIM(THISFORM.Text3.VALUE)+"]"
ENDIF
SELECT * FROM 表 WHERE (lnExpr)