用户权限设置通过关联还可以看到关联项目该怎么做 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2341人关注过本帖树形打印复制链接主题：用户权限设置通过关联还可以看到关联项目该怎么做

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

123456789赫力

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

这段代码写在哪里?

123456789赫力

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

123456789赫力

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

123456789赫力

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：30 积分：397 威望：0 精华：0 注册：2016/8/15 10:15:00

Post By：2017/4/8 15:30:00 [显示全部帖子]

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

下一主题 >> << 上一主题

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