下面的代码为什么出错呢？请各位指教！

[winsonruan]

combo1的interactivechange属性中有如下代码：

with thisform.grid1
.recordsource=''
sele zhucheng
set filt to alltrim(zhucheng.hpdm)==alltrim(thisform.combo1.text)
.recordsource='zhucheng'
.refresh
.setfocus
endwith

执行时经常显示“thisform只能在方法属性中使用”对话框！但是按确定后程序能正常执行！有什么问题呢？请教各位大侠……！

[JohnShen]

set filt to alltrim(zhucheng.hpdm)==alltrim(thisform.combo1.text)
这句估计有问题，修改为：
lcFilter = "alltrim(zhucheng.hpdm)=='" + alltrim(thisform.combo1.text) +"'"
set filt to &lcFilter

[dfwxj]

这里不需要将表格的数据源置空，改一下：

sele zhucheng
set filt to alltrim(zhucheng.hpdm)==alltrim(thisform.combo1.text)
thisform.grid1.refresh
thisform.grid1.setfocus

[dfwxj]

上面的代码掉了一句，

这里不需要将表格的数据源置空，改一下：

sele zhucheng
set filt to alltrim(zhucheng.hpdm)==alltrim(thisform.combo1.text)
go top &&筛选条件生效
thisform.grid1.refresh
thisform.grid1.setfocus