查找按钮的click代码为：
sele 3
store thisform.pageframe1. to value_1
if value_1="" then
  messagebox("请输入查找内容的种类")
else
locate for china_lb=value_1
store alltrim(lb) to value_1
sele 2
set filter to &value_1= upper(thisform.pageframe1.page1.text1.value)
thisform.pageframe1.page1.refresh
endif

我的combo1 rowsource为表1.china_lb   rowsourcetype为6-字段
无论我怎么点，都跳出“请输入查找种类”的对话框。。
求VFP大神指导！！！

if value_1="" then
这个""恐怕不行吧 改成" "试试呢

好像可以诶！谢谢！！！

再弱弱地问一句。。那他说我set filter to &value_1= upper(thisform.pageframe1.page1.text1.value)语法错误是怎么回事呢

是不是提示变量不存在？
可能是 value_1 的值所对应的字段不存在吧。

语法应该没错误

提示是语法错误，挂起的是这一条

你在 set filter to &value_1= upper(thisform.pageframe1.page1.text1.value) 前插入如下一句，看是什么

WAIT WIND 'set filter to '+value_1+'= '+upper(thisform.pageframe1.page1.text1.value)

store thisform.pageframe1. to value_1

从你的语句来看，语法错误的发生应该是你的“Value_1”变量里的内容有问题，才导致宏代换出来时不符合语法的要求了。记住：命令中含宏代换时，千万不能只看表面的语法对不对，而要人工把它代换出来，直到命令中没有宏代换了，再来看语法是否有问题。

收到的鲜花

• TonyDeng 于 2013-03-27 05:02 送鲜花  10朵  

正确，觉得宏替换比较难测试，要具体问题具体分析。