- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [原创]筛选表不自动显示，打开慢，筛选后列隐藏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147912)
-- 发布时间：2020/3/27 0:23:00
-- [原创]筛选表不自动显示，打开慢，筛选后列隐藏
你好！
我初次设计，准备10几个人使用的软件，不知道设计的有没有问题，可以发布项目吗，目前有几个问题，请咨询下老师
1.为什么同样的筛选代码和设计，“仓库模块” 筛选时候不自动显示
2.筛选后表格会自动隐藏一些列，再次用其他窗口筛选时候，表无法恢复到默认状态， 因为不同筛选窗口需要的列不同。如何自动取消隐藏列？
3.打开“生产模块”需要3秒，“仓库模块”，“品质模块”，“订单查询”需要5秒，为什么会有这么长时间等待
4.此项目里面拷贝了很多类似的代码，是否影响使用速度
5.筛选为空值时，报错如何解决(窗口事件，beforeclose 事件写的是 Tables("订单录入").ApplyFilter = False \'取消筛选)
-- 发布时间：2020/3/27 0:28:00
--
忘记附件了
此主题相关图片如下：错误.png
此主题相关图片如下：有问题.png
-- 发布时间：2020/3/27 0:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:erp订单录入_202003262320-1.zip |
-- 发布时间：2020/3/27 11:08:00
--
1、对副本筛选应该是http://www.foxtable.com/webhelp/topics/1906.htm
Tables("仓库录入_table1").Filter = Filter
2、同样的问题，对副本操作，而不是主表
3、窗口表添加了订单录入的副本，然后大量的表达式列计算导致的
4、所有使用到current的地方必须判断一下是否为空
If Tables("订单录入").Current IsNot Nothing Then
If Tables("订单录入").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
e.Cancel = True
End If
End If
Tables("订单录入").ApplyFilter = False
-- 发布时间：2020/3/28 2:35:00
-- [原创]
非常感谢您的帮助