看不懂啊？谁来解释一下阿？
cExprL=".T."IF !EMPTY(THISFORM.TEXT1.VALUE)
cExprL=cExprL+".AND.BH='"+THISFORM.TEXT1.VALUE+"'"
ENDIF
看不懂啊？谁来解释一下阿？
cExprL=".T." ＆＆把字符串.T.赋值给变量cExprL
IF !EMPTY(THISFORM.TEXT1.VALUE)＆＆ 如果TEXT1的值不为空，则
cExprL=cExprL+".AND.BH='"+THISFORM.TEXT1.VALUE+"'" ＆＆变量cExprL的值为 cExprL的原值与字符“.AND. BH='”及TEXT1的值的所连接成的字符串。
ENDIF ＆＆结束判断语句
例如，当TEXT1的值为字符串1234时，cExprL的值就是.t. .and. bh='1234'
[此贴子已经被作者于2006-8-29 16:04:06编辑过]
