以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]条件加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101405)

--  作者:huhuyq
--  发布时间:2017/5/30 14:21:00
--  [求助]条件加载
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar


大神,我想根据用户角色条件加载表,目前设置了用户名为“佟”,角色为“苏州华宇”,想让他只看到苏州华宇公司当天的人员。我再菜单栏中写了如下代码,但是用户名进去表加载后没有任何内容,请赐教。
Select Case User.Roles
    Case "苏州华宇"
        DataTables("人工时台账").LoadFilter = "Date = \'" & Date.Today & "\' and Company = \'苏州华宇\'"
        DataTables("人工时台账").Load()
    Case "中原春城"
        DataTables("人工时台账").LoadFilter = "Date = \'" & Date.Today & "\' and Company = \'中原春城\'"
        DataTables("人工时台账").Load()
    Case "安装公司"
        DataTables("人工时台账").LoadFilter = "Date = \'" & Date.Today & "\' and Company = \'安装公司\'"
        DataTables("人工时台账").Load()
End Select
MainTable = Tables("人工时台账")

--  作者:chen3728060
--  发布时间:2017/5/30 22:00:00
--  

你试一下加载条件加一个

 

DataTables("人工时台账").LoadTop ="100 percent"


--  作者:有点色
--  发布时间:2017/5/31 9:20:00
--  
Select Case User.Roles
    Case "苏州华宇"
        DataTables("人工时台账").LoadFilter = "Date = #" & Date.Today & "# and Company = \'苏州华宇\'"
        DataTables("人工时台账").Load()
    Case "中原春城"
        DataTables("人工时台账").LoadFilter = "Date = #" & Date.Today & "# and Company = \'中原春城\'"
        DataTables("人工时台账").Load()
    Case "安装公司"
        DataTables("人工时台账").LoadFilter = "Date = #" & Date.Today & "# and Company = \'安装公司\'"
        DataTables("人工时台账").Load()
End Select
MainTable = Tables("人工时台账")