Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于项目打开后加载数据的问题？


  共有3669人关注过本帖树形打印复制链接

主题：关于项目打开后加载数据的问题？
帅哥哟，离线，有人找我吗？
wealthwind
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		关于项目打开后加载数据的问题？  发帖心情 Post By：2014/5/1 8:04:00 [只看该作者]

项目我已设置了，打开项目是不加载任何数据，那么这样项目打开的速度就会非常快。。然后我进入系统后，我设置了一个按钮就是加载订单按钮，用以加载登录用户指定的数据；代码如下：
Syscmd.Table.Load()
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
DataTables("企业信息").LoadFilter = CustomFilter
DataTables("企业信息").Load
DataTables("人员").LoadFilter = CustomFilter
DataTables("人员").Load
DataTables("文具明细").LoadFilter = CustomFilter
DataTables("文具明细").Load
DataTables("产品Vlookup").LoadFilter = CustomFilter
DataTables("产品Vlookup").Load
DataTables("经销商信息").LoadFilter = CustomFilter
DataTables("经销商信息").Load
DataTables("专卖店签约").LoadFilter = CustomFilter
DataTables("专卖店签约").Load
DataTables("个案申请").LoadFilter = CustomFilter
DataTables("个案申请").Load
DataTables("文件管理").LoadFilter = CustomFilter
DataTables("文件管理").Load
DataTables("订单").LoadFilter = CustomFilter
DataTables("订单").Load
DataTables("专卖店目标").LoadFilter = CustomFilter
DataTables("专卖店目标").Load
DataTables("目标").LoadFilter = CustomFilter
DataTables("目标").Load
DataTables("行政区域").LoadFilter = CustomFilter
DataTables("行政区域").Load
DataTables("专卖店人员").LoadFilter = CustomFilter
DataTables("专卖店人员").Load
DataTables("专卖店人员目标").LoadFilter = CustomFilter
DataTables("专卖店人员目标").Load
DataTables("专卖店零售额").LoadFilter = CustomFilter
DataTables("专卖店零售额").Load



那么现在遇到上面问题呢，就是进入系统后加载数据时，是不会显示数据加载进度的，这样很容易给用户造成假死的状态（特别是网络太慢的时候，导致加载时间过程），那么现在我想在上面的代码上，加上显示加载数据的百分表，如果需要达到这样的效果，代码应该怎么样写？？？
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：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:33:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/1 8:46:00 [只看该作者]

老师视乎有点问题额？？
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140501084504318.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/1 8:47:00 [只看该作者]

我搞懂了~~没检查~~明白~~

 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/1 8:57:00 [只看该作者]

老师，为什么没有显示正在加载呢？？

 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/1 8:59:00 [只看该作者]

检查了一会，还是没有发现问题~~
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140501085733544.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140501085708777.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20140501085523442.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/5/1 9:00:00 [只看该作者]

我这是在用的案例，肯定管用。

发你的例子测试。
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/1 9:19:00 [只看该作者]

窗口属性请老师帮看看，是否有错~~
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140501091757017.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/1 9:23:00 [只看该作者]

老师请看看窗口是否有设置错误~~~一直没有显示，“正在加载表”的显示~~
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140501091757017.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/5/1 9:27:00 [只看该作者]

这样，在属性里面设：启用：True,间隔：1000

Forms("加载提示").TimerEnabled = True

Forms("加载提示").TimerInterval = 1000

两行代码删除。
 回到顶部
总数 24 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询