哈哈,这样也可以了。
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