- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 条件筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131474)
-- 发布时间：2019/2/27 10:21:00
-- 条件筛选
此主题相关图片如下：1.png
此主题相关图片如下：2.png
想先通过考勤日期和部门进行筛选，然后再通过calendar控件 选择其中想要的日期，怎么实现这个筛选，这两个筛选怎么组合在一起，现在是各自筛选，然后又变回去了
-- 发布时间：2019/2/27 10:27:00
--
参考
http://www.foxtable.com/webhelp/scr/1058.htm
-- 发布时间：2019/2/27 13:18:00
--
此主题相关图片如下：1.png
此主题相关图片如下：2.png
老师 三个控件组合在一起我是可以实现的 就是增加了一个calendar控件 实现多日期选择 选择完后 我之前做的日期和部门的筛选又没了 主要两个代码不在一起写 但是calendar的代码又得在它的控件事件上写 无法实现筛选完日期段和部门后，在单独筛选特定的日期的数据
-- 发布时间：2019/2/27 14:17:00
--
具体实例发上来测试
-- 发布时间：2019/2/27 15:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:考勤表.zip |
-- 发布时间：2019/2/27 15:58:00
--
还有一个小问题 就是报表生成时 如果一个日期行考勤无问题，就不会有√，希望不要显示这一行，如图
此主题相关图片如下：3.png
不要显示红色区域
-- 发布时间：2019/2/27 16:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:考勤表.foxdb |
-- 发布时间：2019/2/27 17:54:00
--
谢谢甜老师 好厉害解决了
还有一个问题，就是我生成的报表全红的那块是不想显示的直接去掉，因为四段时间都没打√证明那个日期考勤没问题
此主题相关图片如下：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) & "#,"
Next
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
-- 发布时间：2019/2/27 17:57:00
--
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)"