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

 

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

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

我试过了，是

 If r.isnull(nm) Then

这一行

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

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

各位大大，不好意思，我是新手，做这个是为了更好的工作，纯粹业余，请见谅。我重新整理了一下例子，望不吝赐教。

问题：1、疫苗出库/疫苗出库，新增后，点“确认出库”出现错误对话框

2、疫苗入库/新增入库，按3楼方法，点“确认入库”没反应了

 

       

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2013ym.table

各位大大，不好意思，我是新手，做这个是为了更好的工作，纯粹业余，请见谅。我重新整理了一下例子，望不吝赐教。

 

我上传到十二楼了

是啊，可是我想在点“新增一行”后 为什么选中的是合计行，而不是新增的那一行呢

嗯，谢谢了