- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 根据3个CheckBox是否勾选进行统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173402)
-- 发布时间：2021/11/28 10:40:00
-- 根据3个CheckBox是否勾选进行统计
窗口中有CheckBox1~3共三个CheckBox控件，根据这三个控件对数据进行组合统计
代码如下：见TXT文件，直接发不了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
问题：单独勾选其中一个CheckBox时能正确统计，但如果是组合后就不行了，请老师帮忙解答一下，谢谢！
-- 发布时间：2021/11/28 20:32:00
--
If d1<>Nothing And d2<>Nothing Then
filter="截止日期>=#"& d1 &"# And 截止日期<=#"& d2 &"# "
Dim g As New CrossTableBuilder("出库单据多月统计表", DataTables("出库单"))
dim s as string
If e.Form.Controls("CheckBox1").Checked =True Then
s = s & ",yao品"
End If
If e.Form.Controls("CheckBox2").Checked =True Then
s = s & ",管制"
End If
If e.Form.Controls("CheckBox3").Checked =True Then
s = s & ",耗材"
End If
s = s.trim(",").replace(",","\',\'")
Filter =filter & " and 类别 in (\'" & s & "\')"
g.filter=filter