Foxtable(狐表)用户栏目专家坐堂 → 自动设置各行高度问题


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

主题:自动设置各行高度问题

帅哥哟,离线,有人找我吗?
lzzhx
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:995 积分:6712 威望:0 精华:0 注册:2015/1/12 22:12:00
自动设置各行高度问题  发帖心情 Post By:2016/5/17 11:47:00 [显示全部帖子]

 

在项目事件CurrentTableChanged中加入下面代码


If Tables(CurrentTable.Name).Current IsNot Nothing Then

    Tables(CurrentTable.Name).AutoSizeRows() '自动设置各行高度

End If

窗口就打不开了


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
lzzhx
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:995 积分:6712 威望:0 精华:0 注册:2015/1/12 22:12:00
  发帖心情 Post By:2016/5/17 12:00:00 [显示全部帖子]

 发帖心情 Post By:2016/5/17 11:48:00 [只看该作者]

那你把代码删除,就可以打开

 

把代码删除,就能打开。

表中共有5000多条记录,代码放在项目事件CurrentTableChanged中时,发现要过好几分钟才能打开,把代码放在表的afterfilter事件中后,切换筛选,8秒钟才筛选完


 回到顶部
帅哥哟,离线,有人找我吗?
lzzhx
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:995 积分:6712 威望:0 精华:0 注册:2015/1/12 22:12:00
  发帖心情 Post By:2016/5/17 12:06:00 [显示全部帖子]

单独执行 1秒多就好了,请教老师大概在什么位置有问题

 回到顶部
帅哥哟,离线,有人找我吗?
lzzhx
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:995 积分:6712 威望:0 精华:0 注册:2015/1/12 22:12:00
  发帖心情 Post By:2016/5/17 12:11:00 [显示全部帖子]

刚才试验错了,只有10几条记录,在全部记录5000多条下,单独在命令窗口执行也花了好长时间


 回到顶部
帅哥哟,离线,有人找我吗?
lzzhx
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:995 积分:6712 威望:0 精华:0 注册:2015/1/12 22:12:00
  发帖心情 Post By:2016/5/17 14:58:00 [显示全部帖子]

实例没法单独做出来上传,我在菜单上做了一个按钮单独操作,其它表都正常,就这一个表我都筛选成只有10条记录了,还需要1分多钟。

 

后来在筛选代码   Tables("春检表一_Table1").Filter = flt  后面加了一条语句 Tables("春检表一_Table1").Focus,再点击按钮就正常了。


 回到顶部