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

 

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

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

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

End If

窗口就打不开了

此主题相关图片如下：1.png

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

测试，没你说的问题，实例说明。

  Post By：2016/5/17 11:48:00 [只看该作者]

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

 

把代码删除，就能打开。

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

单独执行这句代码呢？

 

CurrentTable.AutoSizeRows()

也就是

 

msgbox(1)

CurrentTable.AutoSizeRows()

msgbox(2)

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

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

 你在currentTableChanged事件，加入代码下面代码，看弹出什么

 

msgbox(currentTable.Name)

 

 按常理，不应该那么慢的啊，上传实例说明。

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

 

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