各位老师,下面的语句哪里有问题,确定时总提示“应为语句结束”
If _UserName <> "开发者" Then
For Each dr1 As DataRow In DataTables("授权表").Select("部门 = '" & _UserGroup & "' And 角色 In ('" & _UserRole & "')")
If dr1.IsNull("可查看列") Then
Tables(dr1("表名")).Visible = False
Tables(dr1("表名")).AllowEdit = False
ElseIf dr1.IsNull("可编辑列") Then
Tables(dr1("表名")).AllowEdit = False
Else
For Each c As Col In dr1("表名").Cols
If c.name In (dr1("可查看列")) Then
c.Visible = True
ElseIf c.name In dr1(("可编辑列")) Then
c.AllowEdit = True
End If
Next
End If
Next
End If
此主题相关图片如下:qq截图20120822230601.jpg