主题：[求助] 加载条件

1、你得到group的值了没有？

2、得到以后，直接设置条件，如 "分组 = '" & group值 & "'"

直接查询表即可，比如

Tables("表A").Filter = "config like '%" & 你的分组的值 & "%'"

DataTables("机构设置").LoadFilter = "科室主任 is not null"
DataTables("机构设置").Load()

DataTables("请销假登记").LoadFilter = "确认审核 = false And (姓名 Like '%科室主任%' Or 姓名 like '%中心领导%') or 确认审核 = false and 请假天数 >= 3 "
DataTables("请销假登记").Load()

照抄代码啊

DataTables("机构设置").LoadFilter = "科室主任 is not null"
DataTables("机构设置").Load()

DataTables("请销假登记").LoadFilter = "确认审核 = false And (姓名 Like '%科室主任%' Or 姓名 like '%中心领导%') or 确认审核 = false and 请假天数 >= 3 "
DataTables("请销假登记").Load()

DataTables("结构设置").LoadFilter = "科室主任 is not null"
DataTables("结构设置").Load()
Dim str As String = "1=2"
For Each dr As DataRow In DataTables("结构设置").DataRows
    str &= " or 确认审核 = 0 And (姓名 Like '%" & dr("科室主任") & "%' Or 姓名 like '%" & dr("分管领导") & "%')"
   
Next
str &= " Or 确认审核 = 0 And 请假天数 >= 3 "
DataTables("请销假登记").LoadFilter = str
DataTables("请销假登记").Load

执行下面代码，弹出什么？

DataTables("结构设置").LoadFilter = "科室主任 is not null"
DataTables("结构设置").Load()
Dim str As String = "1=2"
For Each dr As DataRow In DataTables("结构设置").Select("科室主任 is not null or 分管领导 is not null ")
    str &= " or 确认审核 = 0 And (姓名 Like '%" & dr("科室主任") & "%' Or 姓名 like '%" & dr("分管领导") & "%')"
Next
str &= " Or 确认审核 = 0 And 请假天数 >= 3 "
msgbox(str)
DataTables("请销假登记").LoadFilter = str
DataTables("请销假登记").Load