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

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

哈哈，这样也可以了。

 

Select Case e.DataTableName
    Case "员工资料","工序编码表","工序单价表","工资录入表"
        For Each dr1 As DataRow In DataTables("授权表").Select("用户名 = '" & Vars("_UserName ") & "'" )
            if dr1("表名")=e.DataTableName AndAlso dr1("只加载本部门数据")=true then
                if e.DataTableName="工资录入表" AndAlso Vars("会计期间") <>"" then
                    e.SelectString = "Select * From {工资录入表} Where [会计期间] = '" & Vars("会计期间") & "'and [部门] = '" & Vars("部门名称") & "'"
                else
                    e.SelectString = "Select * From {" & dr1("表名") & "} Where [部门] = '" & Vars("部门名称") & "'"

                   
                End If
               
            end if
        next
End Select