1、一样可以用隐藏列的办法,至于代码用
''''前面的代码
If User.Type = UserTypeEnum.User Then
For
Each dr As
DataRow
In
DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
If dr.IsNull("列名") Then
Tables(dr("表名")).Visible = Not dr("不可见")
Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
Else
If Tables(dr("表名")).Cols.Contains(dr("列名"))= True Then
Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
Tables(dr("表名")).Cols.Remove((dr("列名"))
End If
End
If
Next
End
If
2、关于数据源,发布的程序默认就是修改不了的。
3、版本的问题是没有办法的,毕竟新版旧版都有人用的。