应该这样
beforeloadoutertable事件
Select Case e.DataTablename
Case "个人持证情况表","员工职称表","员工基础表"
e.SelectString = "Select * From {" & e.DataTablename & "} Where [_Identify] Is Null"
End Select
afteropenproject事件
DataTables("员工基础表").loadfilter = "[部门] = '" & usbm & "'"
DataTables("员工基础表").load
"员工基础表"的afterload表事件:
e.DataTable.LoadChildren("个人持证情况表")
e.DataTable.LoadChildren("员工职称表")