我最近编了一个查询的程序，界面和代码如下所示：当用一个条件查询时，该功能可以实现，但是当输入两个以上的条件时，如输入月份和职称时会出现这样的情况：set filter to &searchfilter 语法错误，我不明白为什么，所以再次请教各位高手给予帮助，本人将感激不尽！
searchfilter=".t."
if not empty(alltrim(thisform.姓名1.value))
searchfilter=searchfilter+ "and '" +alltrim(thisform.姓名1.value)+ "' $ 姓名"
endif
if not empty(alltrim(thisform.职称1.value))
searchfilter=searchfilter+"and'"+alltrim(thisform.职称1.value)+"'$职称"
endif
if not empty(alltrim(thisform.IP地址1.value))
searchfilter=searchfilter+"and'"+alltrim(thisform.IP地址1.value)+"'$IP地址"
endif
if not empty(alltrim(thisform.所在系部1.value))
searchfilter=searchfilter+"and'"+alltrim(thisform.所在系部1.value)+"'$所在系部"
endif
if not empty(alltrim(thisform.月份1.value))
searchfilter=searchfilter+"and'"+alltrim(thisform.月份1.value)+"'$月份"
endif
select xinxibiao
set filter to
set filter to &searchfilter
go top
thisform.refresh
[此贴子已经被作者于2006-4-27 13:41:55编辑过]
