- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动设置各行高度问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85080)
-- 发布时间：2016/5/17 11:47:00
-- 自动设置各行高度问题
在项目事件CurrentTableChanged中加入下面代码
If Tables(CurrentTable.Name).Current IsNot Nothing Then
Tables(CurrentTable.Name).AutoSizeRows() \'自动设置各行高度
End If
窗口就打不开了
此主题相关图片如下：1.png
-- 发布时间：2016/5/17 11:48:00
--
那你把代码删除，就可以打开？
-- 发布时间：2016/5/17 11:50:00
--
测试，没你说的问题，实例说明。
-- 发布时间：2016/5/17 12:00:00
--
Post By：2016/5/17 11:48:00 [只看该作者]
把代码删除，就能打开。
表中共有5000多条记录，代码放在项目事件CurrentTableChanged中时，发现要过好几分钟才能打开，把代码放在表的afterfilter事件中后，切换筛选，8秒钟才筛选完
-- 发布时间：2016/5/17 12:02:00
--
单独执行这句代码呢？
CurrentTable.AutoSizeRows()
-- 发布时间：2016/5/17 12:03:00
--
也就是
msgbox(1)
CurrentTable.AutoSizeRows()
msgbox(2)
-- 发布时间：2016/5/17 12:06:00
--
单独执行 1秒多就好了，请教老师大概在什么位置有问题
-- 发布时间：2016/5/17 12:11:00
--
刚才试验错了，只有10几条记录，在全部记录5000多条下，单独在命令窗口执行也花了好长时间
-- 发布时间：2016/5/17 12:20:00
--
你在currentTableChanged事件，加入代码下面代码，看弹出什么
msgbox(currentTable.Name)
按常理，不应该那么慢的啊，上传实例说明。
-- 发布时间：2016/5/17 14:58:00
--
实例没法单独做出来上传，我在菜单上做了一个按钮单独操作，其它表都正常，就这一个表我都筛选成只有10条记录了，还需要1分多钟。
后来在筛选代码 Tables("春检表一_Table1").Filter = flt 后面加了一条语句 Tables("春检表一_Table1").Focus，再点击按钮就正常了。