以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  保存时间出现“未将对象引用设置到对象的实例”  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104216)
--  作者：benwong2013
--  发布时间：2017/7/25 16:35:00
--  保存时间出现“未将对象引用设置到对象的实例”
Dim dm As String = e.Form.Controls("TextBox1").Value
Dim qy As String = e.Form.Controls("区域").Value
Dim bm As String = e.Form.Controls("部门").Value
Dim dw As String = e.Form.Controls("单位").Value
Dim dr As DataRow = DataTables("Depts").SQLFind("Company = \'" & qy & "\' And DeptName = \'" & bm & "\' And UnitName = \'" & dw & "\'")
Dim wr As DataRow = DataTables("Depts").SQLFind("Company = \'" & qy & "\' And DeptName = \'" & bm & "\' And UnitName Is Null")
Dim pr As DataRow = DataTables("Depts").SQLFind("DeptID = \'" & dm & "\'")
If pr Is Nothing Then
    If dw IsNot Nothing Then
        If wr IsNot Nothing Then
            MessageBox.Show("部门信息重复,请检查之后再输入")
            Return
        Else
            wr.save()
        End If
    Else
        If dr IsNot Nothing Then
            MessageBox.Show("部门信息重复,请检查之后再输入")
            Return
        Else
            dr.save()
        End If
    End If
Else
    MessageBox.Show("部门代码重复,请检查之后再输入")
    Return
End If

操作的时候会显示：
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.6.12.1
错误所在事件：窗口,0202部门基础新增,保存,Click
详细错误信息：
未将对象引用设置到对象的实例。

请问是什么问题？
--  作者：cbt
--  发布时间：2017/7/25 16:40:00
--  
If wr IsNot Nothing Then
    MessageBox.Show("部门信息重复,请检查之后再输入")
    Return
Else
    wr.save()  ‘没有这行，怎么还保存？
End If

If dr IsNot Nothing Then
    MessageBox.Show("部门信息重复,请检查之后再输入")
    Return
Else
    dr.save() ‘没有这行，怎么还保存？
End If