专家坐堂-[求助][原创]三个表，一个用户，只看一个表其余两个表隐藏，代码怎么写？？？？？？？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=115357)

--  作者：上山打汇汇
--  发布时间：2018/3/5 21:36:00
--  [求助][原创]三个表，一个用户，只看一个表其余两个表隐藏，代码怎么写？？？？？？？

三个表  ，一个用户，只看一个表  其余两个表隐藏，代码怎么写？？？？？？？

--  作者：有点蓝
--  发布时间：2018/3/5 21:43:00
--
参考:http://www.foxtable.com/webhelp/scr/2267.htm

--  作者：上山打汇汇
--  发布时间：2018/3/5 21:56:00
--
都试过了么反应

--  作者：有点蓝
--  发布时间：2018/3/5 22:00:00
--
如何试的，什么地方写了什么代码？

--  作者：上山打汇汇
--  发布时间：2018/3/5 22:04:00
--
AfteOpenProject 这个

--  作者：有点蓝
--  发布时间：2018/3/5 22:08:00
--
上传实例说明。遮遮掩掩的解决不了问题

--  作者：上山打汇汇
--  发布时间：2018/3/5 22:30:00
--

If user.Type = UserTypeEnum.user Then
此主题相关图片如下：tim图片20180305222853.png

    Tables("授权表").Visible = False
End If
For Each dr As DataRow In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )
    If dr.IsNull("列名") Then
        Tables(dr("表名")).Visible = Not dr("不可见")
        Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
    Else
        Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
        Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
    End If
Next

--  作者：有点蓝
--  发布时间：2018/3/5 22:44:00
--
有按照帮助的说明设置好授权表的数据了吗？表名不能为空，把所有空行删除

http://www.foxtable.com/webhelp/scr/1600.htm