以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  程序报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102986)
--  作者：扶风
--  发布时间：2017/6/28 18:24:00
--  程序报错
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.foxdb

老师，写的这个小程序，发布后，打开会报错：未将对象引用设置到对象的实例。
但功能好像仍可以正常使用，如何解决报错问题？
--  作者：有点色
--  发布时间：2017/6/28 20:49:00
--  

窗口表的currentChanged事件，都加上判断

 

Dim dr As Row = e.Table.Current
If dr IsNot Nothing Then
    Dim khlh As String = " " & dr("客户料号") & " "
    Dim wslh As String = " " & dr("万盛料号") & " "
   
    Dim Filter As String = "(客户料号=\'"& dr("客户料号") &"\' And 物料长代码=\'"& dr("万盛料号") &"\') "
   
    DataTables("入库单对比窗口_Table1").LoadFilter = Filter \'设置加载条件
    DataTables("入库单对比窗口_Table1").Load() \'加载数据
End If