Foxtable(狐表)用户栏目专家坐堂 → 用户权限设置通过关联还可以看到关联项目该怎么做


  共有2343人关注过本帖树形打印复制链接

主题:用户权限设置通过关联还可以看到关联项目该怎么做

帅哥哟,离线,有人找我吗?
123456789赫力
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:397 威望:0 精华:0 注册:2016/8/15 10:15:00
用户权限设置通过关联还可以看到关联项目该怎么做  发帖心情 Post By:2017/2/27 15:01:00 [只看该作者]

图片点击可在新窗口打开查看用户权限设置通过关联还可以看到关联项目该怎么做
图片点击可在新窗口打开查看此主题相关图片如下:1111.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:2222.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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赫力
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:397 威望:0 精华:0 注册:2016/8/15 10:15:00
  发帖心情 Post By: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
这段代码写在哪里?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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赫力
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:397 威望:0 精华:0 注册:2016/8/15 10:15:00
  发帖心情 Post By: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

 

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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赫力
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:397 威望:0 精华:0 注册:2016/8/15 10:15:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/4/8 15:01:00 [只看该作者]

IIF(SubString([原件号],1,1) = '1' or SubString([原件号],1,1) = '0','J-' + [产品编码1],'E-' + [产品编码1]) 

 回到顶部
帅哥哟,离线,有人找我吗?
123456789赫力
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:397 威望:0 精华:0 注册:2016/8/15 10:15:00
  发帖心情 Post By:2017/4/8 15:30:00 [只看该作者]

解决问题,太棒了,有微信吗?加下,发红包给你呀!图片点击可在新窗口打开查看

 回到顶部