您所在位置：主题：这个查询按钮的代码哪里错了?一按就出现"找不到变量"的提示
冰河力行
[专家分：0] 发布于 2010-06-23 20:16:00
set filter to
do case
case thisform.combo1.value="编号"
set filter to alltrim(编号)=alltrim(thisform.text1.value)
case thisform.combo1.value="分段号"
set filter to alltrim(分段号)=alltrim(thisform.text1.value)
case thisform.combo1.value="材质"
set filter to alltrim(材质)=alltrim(thisform.text1.value)
case thisform.combo1.value="库存位置"
set filter to alltrim(库存位置)=alltrim(thisform.text1.value)
endcase
thisform.refresh
do case
case thisform.combo1.value="编号"
set filter to alltrim(编号)=alltrim(thisform.text1.value)
case thisform.combo1.value="分段号"
set filter to alltrim(分段号)=alltrim(thisform.text1.value)
case thisform.combo1.value="材质"
set filter to alltrim(材质)=alltrim(thisform.text1.value)
case thisform.combo1.value="库存位置"
set filter to alltrim(库存位置)=alltrim(thisform.text1.value)
endcase
thisform.refresh