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
加好友 
发短信
Post By：2021/11/28 20:32:00 [显示全部帖子]
