Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报错后窗口变空白


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

主题：报错后窗口变空白
帅哥哟，离线，有人找我吗？
gfj7126
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：131 积分：1152 威望：0 精华：0 注册：2013/6/9 11:20:00 		报错后窗口变空白  发帖心情 Post By：2020/4/26 14:03:00 [只看该作者]

求助：

      在合并EXCEL数据过程中，当发生错误（比如数据类型不匹配，或找不到相关记录等）。

运行会停止，这时关闭窗口后，再重新打开窗口，窗口会显示为空白，TABLE表都是空白，

我打开DATATABLE表，显示也是空白，无表格式样。

我使用以下代码想重新加载，但也无效。请问有什么办法不重新启动程序，可以让界面恢复正常吗？

Dim t As Table = Tables("未交订单表")
Dim tm As Table = Tables("送货计划明细表")
t.StopRedraw()
tm.StopRedraw()
DataTables("未交订单表").LoadFilter = ""
DataTables("未交订单表").load
DataTables("送货计划明细表").LoadFilter = ""
DataTables("送货计划明细表").load
t.ResumeRedraw()
tm.ResumeRedraw()

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


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/26 14:34:00 [只看该作者]

应该是出错后没有调用ResumeRedraw导致。到命令窗口执行

Tables("未交订单表").ResumeRedraw()
Tables("送货计划明细表").ResumeRedraw()

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


加好友 发短信
等级：幼狐 帖子：131 积分：1152 威望：0 精华：0 注册：2013/6/9 11:20:00 		  发帖心情 Post By：2020/4/26 14:52:00 [只看该作者]

的确是这个问题，如何在发生这个错误时，自动运行以下代码呢？

Tables("未交订单表").ResumeRedraw()

Tables("送货计划明细表").ResumeRedraw()


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


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/26 14:55:00 [只看该作者]

试试：http://www.foxtable.com/webhelp/topics/2070.htm

Dim t As Table = Tables("未交订单表")
Dim tm As Table = Tables("送货计划明细表")
t.StopRedraw()
tm.StopRedraw()
Try
    导入代码
    t.ResumeRedraw()
    tm.ResumeRedraw()
Catch ex As Exception
    t.ResumeRedraw()
    tm.ResumeRedraw()
End Try
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询