以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口的BeforeClose  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132652)
--  作者：wh420
--  发布时间：2019/3/26 18:05:00
--  窗口的BeforeClose
在窗口的BeforeClose中添加如下代码，执行时选择“否”的时候窗口关不掉并提示“未将对象引用设置到对象的实例”，老师帮忙 看看代码哪有问题？

If DataTables("Table_FaPiaoInfo").HasChanges Then
    
    Dim Result As DialogResult
    Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        MessageBox.Show("不错,说明你已经认真学习了.","提示")
    Else
        DataTables("Table_FaPiaoInfo").RejectChanges()
    End If
End If
--  作者：有点甜
--  发布时间：2019/3/26 18:10:00
--  

试试

 

If DataTables("Table_FaPiaoInfo").HasChanges Then   
    Dim Result As DialogResult
    Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        MessageBox.Show("不错,说明你已经认真学习了.","提示")
    Else
        systemready = False
        DataTables("Table_FaPiaoInfo").RejectChanges()
        systemready = True
    End If
End If
--  作者：wh420
--  发布时间：2019/3/26 18:25:00
--  
还是不行，不知道还有可能是哪里的原因呢？
--  作者：wh420
--  发布时间：2019/3/26 18:43:00
--  
在窗口的afterload事件中加自动合计，由其是加了标红的那一行就会出现以上的错误，不知道为什么？
Tables("发票信息管理_Table1").Cols("kpReturn").GrandTotal = True

Tables("发票信息管理_Table1").GrandTotal = True
--  作者：wh420
--  发布时间：2019/3/26 19:03:00
--  
systemready = False
DataTables("Table_FaPiaoInfo").RejectChanges()
e.form.close()
systemready = True
加了这个代码就不报错了，是何原因啊。
--  作者：有点蓝
--  发布时间：2019/3/26 20:59:00
--  
我测试没有问题。上传具体实例测试