项目我已设置了，打开项目是不加载任何数据，那么这样项目打开的速度就会非常快。。然后我进入系统后，我设置了一个按钮就是加载订单按钮，用以加载登录用户指定的数据；代码如下：
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
那么现在遇到上面问题呢，就是进入系统后加载数据时，是不会显示数据加载进度的，这样很容易给用户造成假死的状态（特别是网络太慢的时候，导致加载时间过程），那么现在我想在上面的代码上，加上显示加载数据的百分表，如果需要达到这样的效果，代码应该怎么样写？？？
加好友 
发短信
Post By：2014/5/1 8:04:00 [只看该作者]
