Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态加载


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

主题：动态加载
帅哥哟，离线，有人找我吗？
阆子天涯
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：124 积分：1071 威望：0 精华：0 注册：2014/3/4 22:06:00 		动态加载  发帖心情 Post By：2014/6/21 23:52:00 [只看该作者]

我想根据不同的登录人所在分组不同，加载不同的数据行，用户账户是建立在一个ACCESS表格中，在

BeforeLoadInnerTable事件中代码如下。

Select Case users.group  提示group不是USERS的成员，请各位高手帮忙看下，谢谢！
    Case "卓雅"
        DataTables("出入库明细").LoadFilter = "大类 like '卓雅'& '*' "
        DataTables("出入库明细").Load
       
        DataTables("库调明细_副表").Load
       
        DataTables("库调明细表_主表").LoadFilter = "大类 like '卓雅'& '*' "
        DataTables("库调明细表_主表").Load
       
        DataTables("货号信息").LoadFilter = "大类 like '卓雅'& '*' "
        DataTables("货号信息").Load
       
       
    Case "JW"
        DataTables("出入库明细").LoadFilter = "大类 like 'JW'& '*' "
        DataTables("出入库明细").Load
       
        DataTables("库调明细_副表").Load
       
        DataTables("库调明细表_主表").LoadFilter = "大类 like 'JW'& '*' "
        DataTables("库调明细表_主表").Load
       
        DataTables("货号信息").LoadFilter = "大类 like 'JW'& '*' "
        DataTables("货号信息").Load
                       
    Case Else

        DataTables("出入库明细").Load

        DataTables("库调明细_副表").Load

        DataTables("库调明细表_主表").Load

        DataTables("货号信息").Load
       
End Select


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140621233647.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140621233144.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140621233647.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
 回到顶部
帅哥哟，离线，有人找我吗？
阆子天涯
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：124 积分：1071 威望：0 精华：0 注册：2014/3/4 22:06:00 		  发帖心情 Post By：2014/6/22 0:37:00 [只看该作者]

密码分别是1234，和888

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


加好友 发短信
等级：幼狐 帖子：124 积分：1071 威望：0 精华：0 注册：2014/3/4 22:06:00 		  发帖心情 Post By：2014/6/22 0:48:00 [只看该作者]

我想这样改写一下，不知是否可以，各位帮忙看下，谢谢！

 

 

Dim  Filter As  String

Filter =  "大类 like user.group'& '*'"

 

If  Filter<> "管理员"

 

DataTables("出入库明细").LoadFilter  =  Filter

DataTables("出入库明细").Load

 

DataTables("库调明细_副表").Load

 

DataTables("库调明细表_主表").LoadFilter =  Filter

DataTables("库调明细表_主表").Load

 

DataTables("货号信息").LoadFilter = Filter

DataTables("货号信息").Load

 

 

Else

    DataTables("出入库明细").Load

    DataTables("库调明细_副表").Load

    DataTables("库调明细表_主表").Load

    DataTables("货号信息").Load

   

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/22 9:11:00 [只看该作者]

Dim  Filter As  String

If  Filter<> "管理员" Then
    filter = "大类 like '" & user.group & "*'"
Else
    filter = ""
End If

DataTables("出入库明细").LoadFilter = filter
DataTables("库调明细表_主表").LoadFilter = filter
DataTables("货号信息").LoadFilter = filter

DataTables("出入库明细").Load
DataTables("库调明细_副表").Load
DataTables("库调明细表_主表").Load
DataTables("货号信息").Load
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询