权限管理错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我用这个权限小例http://www.foxtable.com/bbs/dispbbs.asp?boardid=5&Id=23959&page=2

导入到我自己做的系统里面

可是在项目属性那afteropenproject这里放入

For Each t As Table In Tables

t.Visible = False

For Each c As col In t.Cols

c.Visible = False

c.AllowEdit = False

Forms("登录窗口").Show()

Dim roles() As String = _userGroup.Split(",")

For Each role As String In roles

Dim drs As List(Of DataRow) = DataTables("权限").Select("可见 = '" & role & "' or 可见 like '" & role & ",*' or 可见 like '*," & role & ",*' Or 可见 like '*," & role & "'")

For Each dr As DataRow In drs

If dr.Isnull("表名") AndAlso dr.Isnull("列名") Then

For Each t As Table In Tables

t.Visible = True

Else If dr.isnull("列名") Then

Tables(dr("表名")).Visible = True

For Each c As col In Tables(dr("表名")).Cols

c.Visible = True

Else

Tables(dr("表名")).Visible = True

For Each c As col In Tables(dr("表名")).Cols

If dr("列名") = c.name OrElse dr("列名") Like c.name & ",*" OrElse dr("列名") Like "*," & c.name & ",*" OrElse dr("列名") Like "*," & c.name Then

c.Visible = True

End If

drs = DataTables("权限").Select("可编辑 = '" & role & "' or 可编辑 like '" & role & ",*' or 可编辑 like '*," & role & ",*' Or 可编辑 like '*," & role & "'")

For Each dr As DataRow In drs

If dr.Isnull("表名") AndAlso dr.Isnull("列名") Then

For Each t As Table In Tables

t.Visible = True

t.AllowEdit = True

Else If dr.isnull("列名") Then

Tables(dr("表名")).Visible = True

For Each c As col In Tables(dr("表名")).Cols

c.Visible = True

c.AllowEdit = True

Else

Tables(dr("表名")).Visible = True

For Each c As col In Tables(dr("表名")).Cols

If dr("列名") = c.name OrElse dr("列名") Like c.name & ",*" OrElse dr("列名") Like "*," & c.name & ",*" OrElse dr("列名") Like "*," & c.name Then

c.Visible = True

c.AllowEdit = True

End If

却提示错误代码：Dim roles() As String = _userGroup.Split(",")

不然我放入代码怎么回事啊？

主题：权限管理错误