主题：动态加载

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

密码分别是1234，和888

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

 

 

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