[求助]关于set filter to 很急,谢谢
最近小弟按书上提示试着做关于超市的系统,在做"输入查询条件"的表单遇到了问题,该表单的"click"事件代码如下:local findstr,oldrecord,stable
if thisform.findlx.value==""
messagebox("没有选择查询字段",48,"进销存管理系统")
thisform.findlx.setfocus
else
set exact off
select 商品信息
do case
case thisform.findlx.value="商品编码"
findstr="'"+alltrim(thisform.findkey.value)+"'$"+"商品编号"
case thisform.findlx.value="商品名称"
findstr="'"+alltrim(thisform.findkey.value)+"'$"+"商品名称"
case thisform.findlx.value="商品产地"
findstr="'"+alltrim(thisform.findkey.value)+"'$"+"商品产地"
case thisform.findlx.value="商品类别"
findstr="'"+alltrim(thisform.findkey.value)+"'$"+"商品类别"
endcase
oldrecord = recno()
set filter to &findstr
go top
do while .not. eof()
proadmin.refresh
thisform.windowstate = 1
if messagebox("是本次记录吗?",4+32,"进销存管理系统")=6
exit
else
skip
proadmin.refresh
endif
thisform.windowstate = 0
enddo
if eof()
messagebox("未找到指定的记录",48,"进销存管理系统")
go oldrecord
endif
set filter to
proadmin.refresh
thisform.release
endif
VF里是提示红色代码那里有错,刚学也看不出哪里错,希望各位高手能帮我解决,先谢谢了
