可视授权如何实现列为多字段？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

可视授权如何实现列为多字段？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:授权-如何实行多列权限问题.foxdb

看看我刚发这个帖子的表里面候选值这个单元格，看看这个值多不多，仅供参考！

建议还是使用多行的方式授权。这样控制非常麻烦

程老师，没找到您贴子，请发网址或上传实例。谢谢

建议还是使用多行的方式授权。这样控制非常麻烦
蓝老师，

其实使用多行的方式授权，更麻烦：

原因1：一般正常在1-3字段或列，一个还好，2个以下，2列就2行，3列就3行，一个表可能几个人几种设计，也就是非常勉励接受。

原因2：在3字段或列以上，或10列，再加上一个表可能几个人几种设计，那会晕？

存在问题：

1.不直接，界面不友好；2.造成数据多余，数据库加大负担。

所以需求，要列就可以实现多个字段，还可视相对灵活和简单，适合由客户来设定，如何实现，请老师，指教，谢谢

多值字段判断

方法1、使用like模糊查询

2、遍历每一行，把多值字段的值取出来，使用字符串拆分方法拆分后逐一判断：http://www.foxtable.com/webhelp/topics/0245.htm

For Each t As Table In Tables '显示所有表和列

t.Visible = True

t.AllowEdit = True

For Each c As Col In t.Cols

c.Visible = True

c.AllowEdit = True

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

If User.Type <> UserTypeEnum.User Then

Return

End If

For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )

If dr.IsNull("列名") Then

For Each t As Table In Tables

If t.DataTable.Name = dr("表名") Then

t.Visible = Not dr("不可见")

t.AllowEdit = Not dr("不可编辑")

End If

Else

For Each t As Table In Tables

If t.DataTable.Name = dr("表名") Then

For Each c As Col In t.Cols

If c.Name = dr("列名") Then

c.Visible = Not dr("不可见")

c.AllowEdit = Not dr("不可编辑")

End If

Dim Value As String = "foxtable|access/foxpro|excel/egrid"

Dim sps() As Char = {"|","/"}

Dim Names() As String = Value.Split(sps)

For Each c As String In t.Cols

c.Visible = Not dr("不可见")

c.AllowEdit = Not dr("不可编辑")

Dim s As String = e.Sender.Text

'With DataTables("表A")

'.LoadFilter = "列名 Like '%" & s & "%'"

'.Load()

'End With

老师，写不出，请您在上传实例改写，谢谢

For Each t As Table In Tables

If t.DataTable.Name = dr("表名") Then

dim ar() as string = dr("列名").split("|")

For Each c As Col In t.Cols

If array.indexof(ar,c.Name) > -1 Then

c.Visible = Not dr("不可见")

c.AllowEdit = Not dr("不可编辑")

End If

主题：可视授权如何实现列为多字段？