主题：下拉输入，，并根据条件 筛选信息显示

以下内容为程序代码:

1 Dim zt As String
2 zt = e.Form.Controls("员工状态")
3 Select Case zt
4 Case "在职"
5 Tables("员工信息表").Filter = " [离职日期] is null" '在职员工
6 Case "离职"
7 Tables("员工信息表").Filter = " [离职日期] is not null" '离职员工
8 Case Else
9 Tables("员工信息表").Filter = "" '所有员工
10 End Select