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


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

主题:关于项目打开后加载数据的问题?

帅哥哟,离线,有人找我吗?
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 下一页