主题：双击弹错？

看看是否这句代码有错 Tables(vars("表")).Current

如果你表格没有数据，引用表自然会出错。

调试技巧 http://www.foxtable.com/webhelp/scr/1485.htm

和你说的msgbox无关。

删除代码 r("科目代码") = Nothing

如果还有问题，例子发上来。

DoubleClick事件，加上代码

e.Cancel = True

 升级到最新版后发布看看。

 或者是，把你的项目拷贝一份，把其余的表、窗口删除，单独做个例子发上。