Foxtable(狐表)用户栏目专家坐堂 → 未将对象引用设置到对象的实例


  共有2039人关注过本帖树形打印复制链接

主题:未将对象引用设置到对象的实例

帅哥哟,离线,有人找我吗?
蓝蚂蚁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7879 威望:0 精华:0 注册:2016/6/11 11:10:00
未将对象引用设置到对象的实例  发帖心情 Post By: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
详细错误信息:
未将对象引用设置到对象的实例。

请问老师 ,这种情况如何解决  谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7879 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2018/2/10 11:24:00 [只看该作者]

多谢 有点甜老师

 回到顶部