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

写到textchanged事件

Dim zt As String
zt = e.sender.text
Select Case zt
    Case "在职"
        Tables("员工信息表").Filter = " [离职日期] is null" '在职员工
    Case "离职"
        Tables("员工信息表").Filter = " [离职日期] is not null" '离职员工
    Case Else
        Tables("员工信息表").Filter = "" '所有员工
End Select

以下是引用厶猫在2019/6/17 16:14:00的发言：
怎么下拉中 给值啊，放不进去
此主题相关图片如下：1560759180(1).png

在combobox控件那里，设置自定义项目，如

 |在职|离职