- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎样统计某个时间日期内各个客户所做的金额？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46044)
-- 发布时间：2014/2/16 9:37:00
-- 怎样统计某个时间日期内各个客户所做的金额？
怎样统计某个时间日期内各个客户所做的金额？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:统计时间段内的金额.rar |
-- 发布时间：2014/2/16 10:11:00
--
分组统计
-- 发布时间：2014/2/16 12:34:00
--
有没有具体的代码？
-- 发布时间：2014/2/16 13:21:00
--
Filter: 字符型，如果只是对SourceDataTable中的部分数据进行统计，可用Filter属性设置条件。
-- 发布时间：2014/2/16 13:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:按时间段合计客户订单金额.rar |
-- 发布时间：2014/2/16 13:35:00
--
老师，打开出错了。
此主题相关图片如下：qq图片20140216163405.jpg
-- 发布时间：2014/2/16 13:37:00
--
不是错了，是你的版本低了。
-- 发布时间：2014/2/16 14:40:00
--
也可以试试下面这段代码：
Dim d1 As WinForm.DateTimePicker = Forms("订单统计").Controls("日期1")
Dim d2 As WinForm.DateTimePicker = Forms("订单统计").Controls("日期2")
Dim s1,s2 As String
Dim ss1() As String = {d1.Value,d2.Value}
Dim ss2() As String = {">=","<="}
For i As Integer = 0 To ss1.Length-1
If ss1(i) > ""
s1 += " and 下单日期" & ss2(i) & "#" & ss1(i) & "#"
End If
Next
If s1 > ""
s1 = s1.TrimStart(" ","a","n","d")
End If
If s1 > ""
s2 = s1.Replace("下单日期","").Replace(" and ","且").Replace("#","") & "统计结果"
Else
s2 = "全部统计结果"
End If
Output.Show(s1)
Output.Show(s2)
Dim b As New SQLGroupTableBuilder("统计表1","订单")
b.C
b.Groups.AddDef("客户名称",s2 & "_客户名称")
b.Totals.AddExp("金额","订单数量 * 单价",s2 & "_金额")
b.Filter = s1
Tables("订单统计_Table1").DataSource = b.BuildDataSource()
-- 发布时间：2014/2/16 15:39:00
--
你使用的是2014版？我还没有下载呢。不是说有很多错误嘛。
-- 发布时间：2014/2/16 15:47:00
--
以下是引用y2287958在2014-2-16 14:40:00的发言：
也可以试试下面这段代码：
代码很多错误，我自己鼓捣了一会儿，也不行，还是帮忙搞一下，谢谢！
也可以试试下面这段代码：
Dim d1 As WinForm.DateTimePicker = Forms("订单统计").Controls("日期1")
Dim d2 As WinForm.DateTimePicker = Forms("订单统计").Controls("日期2")
Dim s1,s2 As String
Dim ss1() As String = {d1.Value,d2.Value}
Dim ss2() As String = {">=","<="}
For i As Integer = 0 To ss1.Length-1
If ss1(i) > ""
s1 += " and 下单日期" & ss2(i) & "#" & ss1(i) & "#"
End If
Next
If s1 > ""
s1 = s1.TrimStart(" ","a","n","d")
End If
If s1 > ""
s2 = s1.Replace("下单日期","").Replace(" and ","且").Replace("#","") & "统计结果"
Else
s2 = "全部统计结果"
End If
Output.Show(s1)
Output.Show(s2)
Dim b As New SQLGroupTableBuilder("统计表1","订单")
b.C
b.Groups.AddDef("客户名称",s2 & "_客户名称")
b.Totals.AddExp("金额","订单数量 * 单价",s2 & "_金额")
b.Filter = s1
Tables("订单统计_Table1").DataSource = b.BuildDataSource()
此主题相关图片如下：qq图片20140216184244.jpg
此主题相关图片如下：qq图片20140216184352.jpg
此主题相关图片如下：qq图片20140216184408.jpg