专家坐堂-动态加载Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52738)

--  作者：阆子天涯
--  发布时间：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

--  作者：阆子天涯
--  发布时间：2014/6/22 0:37:00
--
密码分别是1234，和888

--  作者：阆子天涯
--  发布时间：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

--  作者：有点甜
--  发布时间：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