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


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

主题：怎样统计某个时间日期内各个客户所做的金额？
帅哥哟，离线，有人找我吗？
小刚
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

有没有具体的代码？

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


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

老师，打开出错了。
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140216163405.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/17 12:38:00 [显示全部帖子]

谢谢老师们的解答。非常感谢！
金额下面再加个 合计 总金额，该怎么修改代码？
 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/17 13:06:00 [显示全部帖子]

谢谢老师，我选择日期时，出现以下错误。
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140217160456.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
小刚
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/17 13:50:00 [显示全部帖子]

LSY老师，那这个代码怎么加上一个 总金额？

也可以试试下面这段代码：
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/17 16:51:00 [显示全部帖子]

LSY老师，当【客户名称】多了的时候，发现最多只统计了二十多个【客户名称】，不知道是什么原因？

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


加好友 发短信
等级：二尾狐 帖子：590 积分：3858 威望：0 精华：0 注册：2012/10/15 20:39:00 		  发帖心情 Post By：2014/2/17 21:40:00 [显示全部帖子]

以下是引用有点甜在2014-2-17 21:31: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()
Tables("订单统计_Table1").Cols("金额").GrandTotal = True
Tables("订单统计_Table1").GrandTotal = True

非常感谢！图片点击可在新窗口打开查看
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询