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

最嗨魔女呜啦啦

此主题相关图片如下：1.png

此主题相关图片如下：2.png

想先通过考勤日期和部门进行筛选，然后再通过calendar控件选择其中想要的日期，怎么实现这个筛选，这两个筛选怎么组合在一起，现在是各自筛选，然后又变回去了

最嗨魔女呜啦啦

此主题相关图片如下：1.png

此主题相关图片如下：2.png

老师三个控件组合在一起我是可以实现的就是增加了一个calendar控件实现多日期选择选择完后我之前做的日期和部门的筛选又没了主要两个代码不在一起写但是calendar的代码又得在它的控件事件上写无法实现筛选完日期段和部门后，在单独筛选特定的日期的数据

具体实例发上来测试

最嗨魔女呜啦啦

下载信息 [文件大小：下载次数： ]
点击浏览该文件:考勤表.zip

最嗨魔女呜啦啦

还有一个小问题就是报表生成时如果一个日期行考勤无问题，就不会有√，希望不要显示这一行，如图

此主题相关图片如下：3.png

不要显示红色区域

下载信息 [文件大小：下载次数： ]
点击浏览该文件:考勤表.foxdb

最嗨魔女呜啦啦

谢谢甜老师好厉害解决了

还有一个问题，就是我生成的报表全红的那块是不想显示的直接去掉，因为四段时间都没打√证明那个日期考勤没问题

此主题相关图片如下：3.png

但是我加了判断条件就只执行我加的那个条件了其他条件判断就没有执行我该怎么修改代码

查询按钮：

Dim startdate As Date = e.Form.Controls("DateTimePicker1").value

Dim enddate As Date = e.Form.Controls("DateTimePicker2").value

Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim filter As String = "1=1"

If startdate <> Nothing Then

filter &= " and 考勤日期 >= #" & startdate & "#"

End If

If Enddate <> Nothing Then

filter &= " And 考勤日期 <= #" & Enddate & "#"

End If

If cb1.text <> Nothing Then

filter &= " And 部门 = '" & cb1.Text & "'"

End If

Dim lst = vars("lst")

If lst.count > 0 Then

Dim v As String

For i As Integer = 0 To lst.Count - 1

v = v & "#" & lst(i) & "#,"

v = v.Trim(",")

filter &= " and 考勤日期 In (" & v & ")"

End If

filter &= "and [第1段] is null or [第2段] is null or [第3段] is null or [第4段] is null"

Tables("考勤表").filter = filter

filter &= "and [第1段] is null or [第2段] is null or [第3段] is null or [第4段] is null"

改成

filter &= "and ([第1段] is null or [第2段] is null or [第3段] is null or [第4段] is null)"

主题：条件筛选