现在的项目启动速度太慢了,就是因为要加载太多的表(约有40个),还有很多数据。所以,想初始时,加载部分登录所需要判断的表,然后想在通过TopicBar来动态加载表和数据。
但在帮助的“初始不加载表”中,有这样的代码
Select
Case e.DataTableName
Case
"表A","表B"
'表A和表B无条件加载
Case
"表C"
If e.User.Type <> UserTypeEnum.Developer Then
'只有开发者才加载表C
e.Cancel = True
End
If
Case
Else
'其他所有表默认都不加载
e.Cancel =
True
End
Select
这样,可以实现在初始启动系统时,只加载必要的表(如用户、权限等,数据量也少,速度快了很多)
然后是动态加载数据的内容,有一个“一个小例子”,这个也可以解决动态加载的问题。
新的问题是,后面加载的表,有些要用到DropForm这个东东。
在“自定义录入界面之二”中,要求这个代码在AfterOpenProject事件中
5、在项目事件AfterOpenProject事件中加入代码:
Tables("订单").Cols("客户ID").DropForm = "窗口1"
但最开始并没有加载DataTables("订单")这个表,显然启动的时候就会出错。
该如何解决呢?