Foxtable(狐表)用户栏目专家坐堂 → 怎样统计某个时间日期内各个客户所做的金额?


  共有6604人关注过本帖树形打印复制链接

主题:怎样统计某个时间日期内各个客户所做的金额?

帅哥哟,离线,有人找我吗?
小刚
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:590 积分:3858 威望:0 精华:0 注册:2012/10/15 20:39:00
怎样统计某个时间日期内各个客户所做的金额?  发帖心情 Post By:2014/2/16 9:37:00 [只看该作者]

怎样统计某个时间日期内各个客户所做的金额?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计时间段内的金额.rar


 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2014/2/16 10:11:00 [只看该作者]

分组统计

 回到顶部
帅哥哟,离线,有人找我吗?
小刚
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:590 积分:3858 威望:0 精华:0 注册:2012/10/15 20:39:00
  发帖心情 Post By:2014/2/16 12:34:00 [只看该作者]

有没有具体的代码?

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4752 积分:34568 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/2/16 13:21:00 [只看该作者]

Filter:          字符型,如果只是对SourceDataTable中的部分数据进行统计,可用Filter属性设置条件。

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/16 13:23:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:按时间段合计客户订单金额.rar


 回到顶部
帅哥哟,离线,有人找我吗?
小刚
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:590 积分:3858 威望:0 精华:0 注册:2012/10/15 20:39:00
  发帖心情 Post By:2014/2/16 13:35:00 [只看该作者]

老师,打开出错了。
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140216163405.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/16 13:37:00 [只看该作者]

不是错了,是你的版本低了。


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4752 积分:34568 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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()

 回到顶部
帅哥哟,离线,有人找我吗?
小刚
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:590 积分:3858 威望:0 精华:0 注册:2012/10/15 20:39:00
  发帖心情 Post By:2014/2/16 15:39:00 [只看该作者]

你使用的是2014版?我还没有下载呢。不是说有很多错误嘛。

 回到顶部
帅哥哟,离线,有人找我吗?
小刚
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:590 积分:3858 威望:0 精华:0 注册:2012/10/15 20:39:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
总数 23 1 2 3 下一页