定义公共变量: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 事件处理
```