利用表单查询使结果在另一个表单上显示,为什么筛选不出记录?
利用表单查询使结果在另一个表单上显示,为什么筛选不出记录?SELECT xcjg
bmh1=ALLTRIM(thisform.pageframe1.page1.text1.value)
bmh2=ALLTRIM(thisform.pageframe1.)
DO CASE
CASE thisform.pageframe1.page1.optiongroup1.Value=1
IF LEN(ALLTRIM(thisform.pageframe1.page1.text1.value))=0
=MESSAGEBOX("对不起!输入不能为空,请重新输入",1+48+1,"输入为空提示对话框")=1
thisform.pageframe1.page1.text1.setfocus
ELSE
SET FILTER TO &分类编码号==bmh1
if not found()
=messagebox("无此记录",5+48+0,"信息提示对话框")=4
ELSE
DO FORM C:\sd\df\xcjg
ENDIF
ENDIF
CASE thisform.pageframe1.page1.optiongroup1.Value=2
DO FORM C:\sd\df\xcjg
ENDCASE
qqq.rar
(35.7 KB)
[ 本帖最后由 gyyimut 于 2014-8-4 20:22 编辑 ]