以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  窗口AfterClose事件代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192047)

--  作者：scofields --  发布时间：2024/5/25 21:48:00 --  窗口AfterClose事件代码问题 这段代码执行后总是显示这个问题，我测试老是出现“未将对象引用设置到对象的实例。”问题，请老师帮忙修改： If CurrentTable IsNot Nothing Then     Dim dr As Row = CurrentTable.Current     If CurrentTable.Current.DataRow.RowState <> DataRowState.Unchanged Then            Dim Result As DialogResult         Result = MessageBox.Show("数据修改后未保存,是否保存或撤销操作?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)         If Result = DialogResult.Yes Then             dr.save()             dr.Locked=True             e.Form.close()         Else             Syscmd.Edit.Undo()         End If     End If     If dr.Locked = False Then         dr.Locked = True     End If End If

--  作者：有点蓝 --  发布时间：2024/5/26 19:47:00 --   If CurrentTable IsNot Nothing Then     Dim dr As Row = CurrentTable.Current     If dr IsNot Nothing Then         If CurrentTable.Current.DataRow.RowState <> DataRowState.Unchanged Then              Dim Result As DialogResult             Result = MessageBox.Show("数据修改后未保存,是否保存或撤销操作?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)             If Result = DialogResult.Yes Then                 dr.save()                 dr.Locked = True             Else                 Syscmd.Edit.Undo()             End If         End If         If dr.Locked = False Then             dr.Locked = True         End If     End If End If [此贴子已经被作者于2024/5/26 19:48:04编辑过]