以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 下拉输入,,并根据条件 筛选信息显示 (http://foxtable.com/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控件那里,设置自定义项目,如
|在职|离职
|