求助查询空白信息，文本框应显示空白记录。

*CLOSE DATABASES
CLOSE TABLES ALL
USE bmk

**以上两句最好放在表单的load 或 init事件中并将第二句改为use bmk in 0
SELECT bmk
IF empty(thisform.text1.value) &&这样输入空格也认为是没有输入
 messagebox("请输入查询信息")
thisform.text1.value=''
thisform.text2.value=''
thisform.text3.value=''
return
*ELSE

endif
LOCATE FOR bmh=t1
if found()
thisform.text1.value=bmh
thisform.text2.value=xm
thisform.text3.value=bj
ELSE
MESSAGEBOX('没有此条数据，请核实！')
endif   

[此贴子已经被作者于2020-12-28 07:34编辑过]

收到的鲜花

• dwzx001 于 2020-12-28 12:39 送鲜花  1朵