Select Case e.link.name Case "员工合同" MainTable = Tables(vars("table1")) Tables(vars("table1")).filter = "现合同终止日期 <= #" & Date.Today.adddays(90) & "# and 状态 = '在岗'" Case "劳务工合同" MainTable = Tables(vars("table2")) Tables(vars("table2")).filter = "现合同终止日期 <= #" & Date.Today.adddays(90) & "# and 状态 = '在岗'" Case "辞退复用"dim s1 as string = Tables(vars("table1")).datatable.GetComboListString("身份证","状态 = '在岗'")
dim s2 as string = Tables(vars("table2")).datatable.GetComboListString("身份证","状态 = '在岗'")
MainTable = Tables(vars("Table3"))
Tables(vars("table3")).filter = "身份证 in ('" & s1.replace("|","','") & "') or 身份证 in ('" & s2.replace("|","','") & "')"
End Select