Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口的BeforeClose


  共有2193人关注过本帖树形打印复制链接

主题：窗口的BeforeClose
帅哥哟，离线，有人找我吗？
wh420
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		窗口的BeforeClose  发帖心情 Post By：2019/3/26 18:05:00 [显示全部帖子]

在窗口的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
 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2019/3/26 18:25:00 [显示全部帖子]

还是不行，不知道还有可能是哪里的原因呢？

 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2019/3/26 18:43:00 [显示全部帖子]

在窗口的afterload事件中加自动合计，由其是加了标红的那一行就会出现以上的错误，不知道为什么？
Tables("fa piao信息管理_Table1").Cols("kpReturn").GrandTotal = True

Tables("fa piao信息管理_Table1").GrandTotal = True
 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2019/3/26 19:03:00 [显示全部帖子]

systemready = False
DataTables("Table_FaPiaoInfo").RejectChanges()
e.form.close()
systemready = True
加了这个代码就不报错了，是何原因啊。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询