- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于项目打开后加载数据的问题？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50198)
-- 发布时间：2014/5/1 8:04:00
-- 关于项目打开后加载数据的问题？
项目我已设置了，打开项目是不加载任何数据，那么这样项目打开的速度就会非常快。。然后我进入系统后，我设置了一个按钮就是加载订单按钮，用以加载登录用户指定的数据；代码如下：
-- 发布时间：2014/5/1 8:32:00
--
按钮代码：
Forms("加载提示").Open
Forms("加载提示").TimerEnabled = True
Forms("加载提示").TimerInterval = 1000
Forms("加载提示")，窗口TimerTick代码：
Select Case User.Group
Case "总部"
CustomFilter = "1 = 1"
Case Else
Select Case User.Roles
Case "区域主管"
CustomFilter = "分区 = \'"& User.Group &"\'"
Case "专卖店店长"
CustomFilter = "分区 = \'"& User.Group &"\' And 客户编码 = \'"& User.Name &"\'"
End Select
End Select
For Each s As String In "企业信息|人员|文具明细|大数据|产品Vlookup|经销商信息|专卖店签约|个案申请|文件管理|订单|专卖店目标|目标|行政区域|专卖店人员|专卖店人员目标|专卖店零售额".Split("|")
e.Form.Controls("Label1").Text = "正在加载【" & s & "】表...请稍候"
DataTables(s).LoadFilter = CustomFilter
DataTables(s).Load
e.Form.Controls("Label1").Text = ""
Next
e.Form.Close()
-- 发布时间：2014/5/1 8:46:00
--
老师视乎有点问题额？？
此主题相关图片如下：360截图20140501084504318.jpg
-- 发布时间：2014/5/1 8:47:00
--
我搞懂了~~没检查~~明白~~
-- 发布时间：2014/5/1 8:57:00
--
老师，为什么没有显示正在加载呢？？
-- 发布时间：2014/5/1 8:59:00
--
检查了一会，还是没有发现问题~~
此主题相关图片如下：360截图20140501085733544.jpg
此主题相关图片如下：360截图20140501085708777.jpg
此主题相关图片如下：360截图20140501085523442.jpg
-- 发布时间：2014/5/1 9:00:00
--
我这是在用的案例，肯定管用。
发你的例子测试。
-- 发布时间：2014/5/1 9:19:00
--
窗口属性请老师帮看看，是否有错~~
此主题相关图片如下：360截图20140501091757017.jpg
-- 发布时间：2014/5/1 9:23:00
--
老师请看看窗口是否有设置错误~~~一直没有显示，“正在加载表”的显示~~
此主题相关图片如下：360截图20140501091757017.jpg
-- 发布时间：2014/5/1 9:27:00
--
这样，在属性里面设：启用：True,间隔：1000
Forms("加载提示").TimerEnabled = True
Forms("加载提示").TimerInterval = 1000
两行代码删除。