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

system.nullreferenceexception:未将对象引用设置到对象的实例。

请帮忙看一下是怎么回事，要怎么解决。谢谢

此主题相关图片如下：截图1256870166.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:dszb.table

应该是你代码错了，把代码贴上来看看

一般来说，如果你引用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

按狐爸说的改过来后就好了，不过又有一个错误提示，麻烦各位再看看

 

另外想再问个问题，就是窗口中的table通过sql查询出来的数据显示在table里，要如何判断table是否有数据？

还有这样搜索出来的数据中能不能在程序里指定某一类为扩展图片类型啊？谢谢各位啊

 

此主题相关图片如下：截图1256871729.png

没有给个出现提示的过程又没有dszb.mdb文件,无法测试了,功力不够啊~

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

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

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

窗口中的table通过sql查询出来的数据显示在table里，当前行默认好像是第一行，改成用当前行来判断就没再出错了。

窗口里的table可不可以指定显示列的宽度啊？谢谢