主题：[求助]出现这个提示system.nullreferenceexception:未将对象引用设置到对象的实例。请问帮忙解决一下

一般来说，如果你引用Current，要判断Current是否为空，因为Table1可能没有夹在数据，不存在当前行，也可能因为处在汇总模实下，选择了分组行，结果Current为Nothing.

If Tables("窗口1_Table1").Current IsNot Nothing Then
End If


搞不定的话，就贴出窗口1的Table1的PositionChanged代码看看。

Dim pbx AS WinForm.PictureBox
pbx = Forms("窗口1").Controls("Image1")
If Tables("窗口1_Table1").Current IsNot Nothing Then
    pbx.Image = GetImage(Tables("窗口1_Table1").current("图片"))
End If

我估计：7楼的错误一样，当没有选定行的时候，Position的参数为-1，你同样需要判断是否有选定行的。
你贴出button1的代码就可以看出来

判断某个Table是否有数据很简单：

if tables("XXX").Rows.Count > 0 then
   '有数据
Else
  '无数据
End if

http://www.foxtable.com/dispbbs.asp?boardid=2&Id=4814