主题：关于可视化授权的设置

可以，先自己写吧

一定要用全局变量保存每个表的“只能编辑个人数据”设置，然后再PrepareEdit事件中判断用户名和此变量的值，决定是否允许编辑

随便啊，例如定义全局代码

 

Public _表A As Boolen

Public _表B As Boolen

 

你自己的代码，加在If dr IsNot Nothing  Then 后面

 

    Select Case dr1("表名")

       case "表A"

          _表A = dr1("只能编辑个人数据")

       case "表B"

          _表B = dr1("只能编辑个人数据")

     end Select

          

          

呵呵，不错，这样是可以，但是每次编辑的时候，都要检查一下设置，如果是大面积的复制粘贴，会比较慢，不过日常操作没问题的

e.SelectString = "Select * From " & {e.DataTableName} & " Where [部门] = '" & Vars("部门名称") & "'"