loca all for 客户名称=alltr(thisform.combo1.value)
if .not.found()
wait "查无此客户!按任意鍵返回。" window at 26,50 time 5
else
thisform.refresh
endif
组合框数据源是某表中的字段:客户名称
为何当随便输入一个不存在的客户,程序没法提示"查无此客户..."
??found()值为.t.
指针指向首记录!
为什么??望大家能帮帮忙!
loca all for 客户名称=alltr(thisform.combo1.value)
if .not.found()
wait "查无此客户!按任意鍵返回。" window at 26,50 time 5
else
thisform.refresh
endif
组合框数据源是某表中的字段:客户名称
为何当随便输入一个不存在的客户,程序没法提示"查无此客户..."
??found()值为.t.
指针指向首记录!
为什么??望大家能帮帮忙!
FOUND()没问题。
你将你的这句改改!!
locall for alltrim(客房名称)=alltrim(thisform.combo1.value)
不行啊!
在字段前加函数alltr()没有意义!
因为字段"客户名称"是被查找对像,为何要加ALLTR()函数?
问是关健是alltr(thisform.combo1.value)没有结果!抓取不到输入的值!
如果
??alltr(thisform.combo1.value)
结果是空串!
所以LOCA后FOUND()值是.T.
怎么办啊?
不行啊!
在字段前加函数alltr()没有意义!
因为字段"客户名称"是被查找对像,为何要加ALLTR()函数?
问是关健是alltr(thisform.combo1.value)没有结果!抓取不到输入的值!
如果
??alltr(thisform.combo1.value)
结果是空串!
所以LOCA后FOUND()值是.T.
怎么办啊?
他说的是无法抓取输入的值,输入的值在COMBO控件中要用THISFORM.COMBO1.DISPLAYVALUE
版主就我们的版主!谢谢你!
COMBO是绑定的,GRID也是绑定的,而且它们绑定的是同一数据源,这样的查询不是失去了意义了吗?
建议用TEXT输入待查数据,用"SET FILTER TO 条件"来查询数据,这样的话,结果可在GRID中直接看出来。
(1)在表单的初始化部分定义cText为全局变量,将表的内容绑定在GRID1上,TEXT1的INPUTMASK设置成"XXX"(X的个数与客户名称的宽度一致)
(2)在查询命令按钮的CLICK里写
cText=alltr(thisform.text1.value) &&将combo修改为text
loca all for cText$客户名称
if .not.found()
wait "查无此客户!按任意鍵返回。" window at 26,50 time 5
else
SET FILTER TO cText$客户名称
GO TOP
thisform.refresh
endif
啸凡版主,还是不明白你说的重实现,轻设计是什么意思?