下拉输入，，并根据条件筛选信息显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下拉输入，，并根据条件筛选信息显示

共有2422人关注过本帖树形打印复制链接主题：下拉输入，，并根据条件筛选信息显示

厶猫

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：20 积分：264 威望：0 精华：0 注册：2013/7/31 9:45:00

下拉输入，，并根据条件筛选信息显示 发帖心情

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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