beforeFilter事件
Dim fl As String = ""
If e.Table.name = "报名登记汇总_Table1" Then
fl = "鉴定等级 in ('高级技师','技师','高级工','中级工')"
ElseIf e.Table.name = "中高级工资审_Table1" Then
fl = "鉴定等级 in ('高级工','中级工')"
ElseIf e.Table.name = "中高级工考核_Table1" Then
fl = "资格审核=True and 鉴定等级 in ('高级工','中级工')"
ElseIf e.Table.name = "中高级工评审_Table1" Then
fl = "评审资格=True and 鉴定等级 in ('高级工','中级工')"
ElseIf e.Table.name = "技师高技资审_Table1" Then
fl = "鉴定等级 in ('技师','高级技师')"
ElseIf e.Table.name = "技师高技理论_Table1" Then
fl = "理论考否='要考理论'and 鉴定等级 in ('技师','高级技师')"
ElseIf e.Table.name = "技师高技考核_Table1" Then
fl = "鉴定等级 in ('技师','高级技师') and 考核项目 in ('两项','实操','潜能')"
ElseIf e.Table.name = "技师高技评审_Table1" Then
fl = "评审资格=True and 鉴定等级 in ('高级技师','技师')"
ElseIf e.Table.name = "上会评审汇总_Table1" Then
fl = "评审资格=True"
ElseIf e.Table.name = "中高级工资审A_Table1" Then
fl = "鉴定等级 in ('高级工','中级工')"
End If
If fl = "" Then
ElseIf e.Table.filter.IndexOf(fl) < 0 Then '如果没有包括雇员条件
e.Filter = e.Table.filter & " And " & fl
End If