以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉输入,,并根据条件 筛选信息显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136615)

--  作者:厶猫
--  发布时间:2019/6/17 15:44:00
--  下拉输入,,并根据条件 筛选信息显示
以下内容为程序代码:

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

不知道代码怎么写
图片点击可在新窗口打开查看此主题相关图片如下:1560757223(1).png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/6/17 15:51:00
--  

写到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
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/6/17 16:20:00
--  
以下是引用厶猫在2019/6/17 16:14:00的发言:
怎么下拉中 给值啊,放不进去
图片点击可在新窗口打开查看此主题相关图片如下:1560759180(1).png
图片点击可在新窗口打开查看

 

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

 

 |在职|离职