*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编辑过]