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

 

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 事件的，点击后，出现“未将对象引用设置到对象的实例”，求助了，谢谢

Select Case e.sender.name

    Case "确认出库"

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

        Dim r As Row = Tables("出库").Current  也是是因为没有当前行,要判断一下当前行是否为空

       if r isnot nothing then

        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

end if

可是我已经新增一条（行）了，怎么会没有当前行呢？

不要只看3楼,也要注意看2楼的回复.

我试过了，是

 If r.isnull(nm) Then

这一行

那么应该就是我3楼所说的问题了,赶紧去验证一下吧

按3楼的方法，是不出现错误了，但点“确认出库”也就没反应了。

新增一行为什么不是当前行？

上例子,我看看你是怎么做的.

同时要记得描述清楚你想实现的需求.