主题：动态加载

我想根据不同的登录人所在分组不同，加载不同的数据行，用户账户是建立在一个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