请教下我将数据库从内部数据库转换到外部SQLserver数据库后原来的权限用不了了,都会全部加载出来,请问下这个要怎么改Dim tns As String = DataTables("授权表").SQLGetComboListString("表名","用户名 = '" & User.Name & "' and 加载表 = true")
If tns > "" Then
DataTables.Load(tns)
For Each dr As DataRow In DataTables("授权表").SQLSelect("用户名 = '" & User.Name & "' and 加载表 = true" )
If dr.IsNull("列名") Then
Tables(dr("表名")).Visible = Not dr("不可见")
Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
Else
Dim t As Table = Tables(dr("表名"))
t.Cols(dr("列名")).Visible = Not dr("不可见")
t.Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
End If
Next
End If