Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在MessageBox对话框语句中调用函数时，有时会出错，但有时也不会，不知大家遇到过没有？


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

主题：在MessageBox对话框语句中调用函数时，有时会出错，但有时也不会，不知大家遇到过没有？
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/16 20:28:00 [只看该作者]

上传一次不行多试几次。

出错的时候会不会currenttable对应的是窗口表
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/16 20:30:00 [只看该作者]

有没有设置多个数据源？

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


加好友 发短信
等级：三尾狐 帖子：740 积分：7688 威望：0 精华：0 注册：2015/3/3 14:34:00 		  发帖心情 Post By：2017/1/16 20:43:00 [只看该作者]

就一个数据源，currenttable对应的就是窗口表，没有影响吧

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


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/16 21:23:00 [只看该作者]

测试一下：

函数直接传入窗口表，不要使用Currenttable

Functions.Execute("删除列",Tables("导航_Table1"))

函数内
Dim tb As Table = Args(0)
 回到顶部
帅哥哟，离线，有人找我吗？
百灵
 小大  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：740 积分：7688 威望：0 精华：0 注册：2015/3/3 14:34:00 		  发帖心情 Post By：2017/1/17 10:10:00 [只看该作者]

找到原因了，由于是窗口表是动态绑定的外部表，由于重新加载外部表时，在外部表尚未加载入系统中时，就与绑定表发生了冲突，在删除列前解除了绑定，增加了
  MainTable = Tables("表a")
        Tables("窗口1_Table1").DataSource  = DataTables("表a")
才解决问题，但窗口闪得厉害，不知还有其他解决的途径没有？把测试项目上传一下，请各位老师，完善一下。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试2.rar



[此贴子已经被作者于2017/1/17 10:11:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/17 10:13:00 [只看该作者]

这句代码可以不写

 

MainTable = Tables("表a")

 

代码改成

 

Forms("窗口1").StopRedraw
Tables("窗口1_Table1").DataSource  = DataTables("表a")

Forms("窗口1").ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
百灵
 小大  17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：740 积分：7688 威望：0 精华：0 注册：2015/3/3 14:34:00 		  发帖心情 Post By：2017/1/17 11:17:00 [只看该作者]

 MainTable = Tables("表a") 不写会出错，停止绘制窗口改为停止绘制当前表，解决了问题，谢谢各位大师指导
 Tables("窗口1_table1").StopRedraw     
 Tables("窗口1_table1").ResumeRedraw
 回到顶部
总数 17 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询