主题：[求助]未将对象引用设置到对象的实例

 

Select Case e.sender.name

    Case "确认出库"

        'Dim nms() As String = {"领取单位","名称","规格","出库单价","数量","领取人","出库日期"}

        Dim r As Row = Tables("出库").Current

        For Each nm As String  In nms

            If r.isnull(nm) Then

                e.Cancel =True

                messagebox.show(nm & "录入信息不全,请补充完整!")

                Return

            End If

        Dim result1 As DialogResult

        result1 = messagebox.show("选择<是>将保存记录,选择<否>将删除本条记录,选择<取消>继续编辑本条记录","提示",messageboxbuttons.yesnocancel,MessageBoxIcon.Question)

        If result1 = DialogResult.Yes Then

            CurrentTable.Current.save()

            Dim result2 As DialogResult

            result2 = messagebox.show("本条入库已保存,是否再录入一条?","提示",messageboxbuttons.yesno,MessageBoxIcon.Question)

            If result2 = DialogResult.Yes Then

                Tables("出库").AddNew()

            End If           

        Else If result1 = DialogResult.Cancel

            Return

        Else

            DataTables("出库").RejectChanges() '取消改变

        End If

 

 

 

这是窗口里 click 事件的，点击后，出现“未将对象引用设置到对象的实例”，求助了，谢谢