专家坐堂-用户权限设置通过关联还可以看到关联项目该怎么做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=96748)

--  作者：123456789赫力
--  发布时间：2017/2/27 15:01:00
--  用户权限设置通过关联还可以看到关联项目该怎么做
用户权限设置通过关联还可以看到关联项目该怎么做
此主题相关图片如下：1111.png

此主题相关图片如下：2222.png

--  作者：有点蓝
--  发布时间：2017/2/27 15:51:00
--

设置权限代码里，增加代码同时设置隐藏关联表

For Each t As Table In Tables
    If t.Name.EndsWith(".订单明细表") Then
        t.Visible = False
        Exit For
    End If
Next

--  作者：123456789赫力
--  发布时间：2017/2/27 15:55:00
--
For Each t As Table In Tables
    If t.Name.EndsWith(".订单明细表") Then
        t.Visible = False
        Exit For
    End If
Next
这段代码写在哪里?

--  作者：有点蓝
--  发布时间：2017/2/27 16:04:00
--

原来设置用户权限的事件里。

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

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

--  作者：123456789赫力
--  发布时间：2017/3/20 15:26:00
--

Tables("user").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

     For Each dr As DataRow In DataTables("user").Select("分组名 = \'" & User.Group & "\'" )

         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

End If

这是我们原来的代码,您能根据这个帮我们重写下不,谢谢!(我没有授权表)您给的代码也解决不了原有问题

--  作者：有点色
--  发布时间：2017/3/20 15:48:00
--
Tables("user").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("user").Select("分组名 = \'" & User.Group & "\'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
            For Each t As Table In Tables
                If t.Name.EndsWith("." & dr("表名")) Then
                    t.Visible = Not dr("不可见")
                    t.AllowEdit = Not dr("不可编辑")
                    Exit For
                End If
            Next
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
            For Each t As Table In Tables
                If t.Name.EndsWith("." & dr("表名")) AndAlso t.cols.Contains(dr("列名")) Then
                    t.Cols(dr("列名")).Visible = Not dr("不可见")
                    t.Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
                End If
            Next
        End If
    Next
End If

--  作者：123456789赫力
--  发布时间：2017/4/8 14:56:00
--
IIF([原件号].Chars(0) is "1" or [原件号].Chars(0) is "0",[产品编码1].Insert(0,J-),[产品编码1].Insert(0,E-) ) 产品编码1是字符性质的,为什么总显示错误
我想让一个字段里显示给[产品编码]1字段首位加一个符合要求的字符

譬如：原件号是‘ 1000000‘，如果首位是1或者0 ，就给9000000加个J，变成J-90000000

--  作者：有点蓝
--  发布时间：2017/4/8 15:01:00
--
IIF(SubString([原件号],1,1) = \'1\' or SubString([原件号],1,1) = \'0\',\'J-\' + [产品编码1],\'E-\' + [产品编码1])

--  作者：123456789赫力
--  发布时间：2017/4/8 15:30:00
--
解决问题，太棒了，有微信吗？加下，发红包给你呀！