以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  未将对象引用设置到对象的实例  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114588)
--  作者：蓝蚂蚁
--  发布时间：2018/2/10 11:05:00
--  未将对象引用设置到对象的实例
窗口表：输注器具发放追踪登记表主窗口_Table1绑定到输注器具发放追踪登记表
窗口表CurrentChanged代码：

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("输注器具发放追踪登记表").FindRow(dr)
If wz >=0 Then
      Tables("输注器具发放追踪登记表").Position = wz
End If
窗口（删除）按钮代码
If Tables("输注器具发放追踪登记表主窗口_Table1").Rows.Count>0 Then
    If Tables("输注器具发放追踪登记表主窗口_Table1").Current.IsNull("领用科室") = False Then
        If MessageBox.Show("是否删除","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
            Tables("输注器具发放追踪登记表主窗口_Table1").Current.Delete
        End If
    Else
        Tables("输注器具发放追踪登记表主窗口_Table1").Current.Delete
    End If
End If
问题：点击窗口（删除）按钮，删除到最后一行时提示如下错误：

.NET Framework 版本：2.0.50727.5466
Foxtable 版本：2017.12.18.1
错误所在事件：输注器具发放追踪登记表,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。

请问老师 ，这种情况如何解决  谢谢
--  作者：有点甜
--  发布时间：2018/2/10 11:09:00
--  

currentChanged代码

 

If e.table.current Is Nothing Then return

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("输注器具发放追踪登记表").FindRow(dr)
If wz >=0 Then
      Tables("输注器具发放追踪登记表").Position = wz
End If
--  作者：蓝蚂蚁
--  发布时间：2018/2/10 11:24:00
--  
多谢 有点甜老师