主题：想做个综合显示数据的功能

以下是引用有点甜在2014-8-1 17:25:00的发言：
  

下载信息  [文件大小：36.6 KB  下载次数：6]

点击浏览该文件:统计演示.rar

甜老师，如何可以刷新数据每次打开项目的时候重新统计呢！还有那个已完成数量和未完成数量的功能可以做吗？已完成和未完成显示的是订单的个数。

每次打开窗口的时候自动计算了啊。

已完成和未完成，你请参考我写的代码来做，学一下，别人帮你做完全部么？

再者，你的数据没有体现已完成和未完成。

已完成和未完成该如何来体现，如果用入库列来体现可以吗？列的值为空算未完成，大于0算完成，还是需要一列单独的逻辑列来体现呢？

以下是引用有点甜在2014-8-4 10:47:00的发言：
   

下载信息  [文件大小：41.0 KB  下载次数：3]

点击浏览该文件:统计演示.rar

 

甜老师，现在的订单数量统计的是订单的下单数量列。我只想统计下单的个数，现在表中的7月份订单个数是15个，8月份是25个订单，已完成和未完成也是显示订单个数的。

我把代码里的"数量"，改为按客户或产品列统计的时候，就错误提示：无效的聚合函数 Sum()和类型 String 的用法。

  改成 count(_Identify)

 或 count(客户)

 http://www.foxtable.com/help/topics/0393.htm

终于完成这个功能了，感谢甜老师的耐心支持，今后会更加努力学习Foxtable

此主题相关图片如下：qq图片20140804173208.jpg

甜老师，把代码写到我自己的系统里，显示的数据都是0，是不是因为我用的是SQL数据库的原因。

我把代码改成如下，请甜老师看下，是不是我加的SQL有问题呢！！

If e.DataCol.Name = "客户名称" OrElse e.DataCol.Name = "入库数量" Then
    If Forms("系统桌面").Opened Then
        Dim d1 As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
        Dim d2 As Date = d1.AddMonths(1)
        Dim d3 As Date = d1.AddMonths(-1)
        Dim filter1 As String = "日期 >= '" & d3 & "' and 日期 < '" & d1 & "'"
        Dim filter2 As String = "日期 >= '" & d1 & "' and 日期 < '" & d2 & "'"
        Forms("系统桌面").Controls("TextBox1").text = e.DataTable.SQLCompute("Count(客户名称)", filter1)
        Forms("系统桌面").Controls("TextBox2").text = e.DataTable.SQLCompute("Sum(总价)", filter1)
        Forms("系统桌面").Controls("TextBox5").text = e.DataTable.SQLCompute("Count(客户名称)", filter2)
        Forms("系统桌面").Controls("TextBox6").text = e.DataTable.SQLCompute("Sum(总价)", filter2)
        Dim dt As DataTable = e.DataTable
        Dim sum1 As Double = dt.Compute("Count(客户名称)", filter1)
        Dim sum2 As Double = dt.Compute("Count(入库数量)", filter1)
        Forms("系统桌面").Controls("TextBox3").text = sum2
        Forms("系统桌面").Controls("TextBox4").text = sum1 - sum2
        sum1 = dt.Compute("Count(客户名称)", filter2)
        sum2 = dt.Compute("count(入库数量)", filter2)
        Forms("系统桌面").Controls("TextBox7").text = sum2
        Forms("系统桌面").Controls("TextBox8").text = sum1 - sum2
    End If
End If

 1、你要改窗口的afterload事件；

 2、你要把compute全部改成SqlCompute