- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]筛选时间并统计该段时间包含某关键字的利润列总和 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34679)
-- 发布时间：2013/6/12 16:14:00
-- [求助]筛选时间并统计该段时间包含某关键字的利润列总和
选择某段时间并统计该段时间的“类别”列包含某关键字
按“查询”按钮登出该利润列的总和
此主题相关图片如下：qq截图20130612150838.jpg
例如：时间段选择为2013-06-01到2013-06-12
如果”类别”选择包含sc的 则筛选出来的类别列包含 sc和 ssc的结果 并统计其结果的sum“利润”列
如果选择cd的 则筛选出来的类别列包含 cd和scd的结果 也统计其结果的sum“利润”列
请高手指点下！
[此贴子已经被作者于2013-6-12 16:15:20编辑过]
-- 发布时间：2013/6/12 17:41:00
--
compute
like
-- 发布时间：2013/6/12 17:46:00
--
Tables("表D").Filter = "日期 > = #" & e.Form.Controls("DateTimePicker1").Value & "# And 日期 < = #" & e.Form.Controls("DateTimePicker2").Value & "# And 类别 Like \'*" & e.Form.Controls("ComboBox1").Value & "\'"
Dim sum As Double
For Each r As Row In Tables("表D").Rows
sum + = r("利润")
Next
MessageBox.Show(sum)
ComboBox1的自定义列表项目：
sc|cd
如果用Compute，更简单点：
Dim flt As String = "日期 > = #" & e.Form.Controls("DateTimePicker1").Value & "# And 日期 < = #" & e.Form.Controls("DateTimePicker2").Value & "# And 类别 Like \'*" & e.Form.Controls("ComboBox1").Value & "\'"
MessageBox.Show(DataTables("表D").Compute("Sum(利润)",flt))
[此贴子已经被作者于2013-6-12 18:15:37编辑过]