ACCESS数据库教程 access数据库实例教程

2025-01-2213:21:31销售经验0

定义公共变量:Public filter_text As String

Sub Command查询_Click() 事件处理

清空 filter_text 变量

若员工编号字段有值且不等于空字符串

如果 filter_text 已有值

将 filter_text 追加条件:"员工编号 like '[员工编号]'"

否则

直接设定 filter_text 为:"员工编号 like '[员工编号]'"

结束条件判断

同样对部门、职位、姓名等字段进行类似处理,拼接 filter_text

若销售日期1 和 销售日期2 均有值

如果 filter_text 已有值,则追加条件:"销售日期 between [销售日期1] and [销售日期2]"

否则直接设定 filter_text 为上述条件

对销售额1 和 销售额2 进行类似处理,拼接 filter_text

-- 子窗体筛选 --

若 filter_text 不为空字符串

设置数据表子窗体的 Form 的 Filter 属性为 filter_text

开启子窗体的 FilterOn 属性

否则

关闭子窗体的 FilterOn 属性

结束 Sub 事件处理

Sub Command清空_Click() 事件处理

清空员工编号、姓名、部门、职位等字段的值

清空销售日期1、销售日期2、销售额1、销售额2 等字段的值

结束 Sub 事件处理

Sub Command全部_Click() 事件处理

关闭数据表子窗体的 FilterOn 属性,显示全部数据

结束 Sub 事件处理

```

  • 版权说明:
  • 本文内容由互联网用户自发贡献,本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 295052769@qq.com 举报,一经查实,本站将立刻删除。