主题：[求助]统计

我定义了一个控件cktj

Dim cktj As WinForm.Button = e.Form.Controls("Button1")

希望能对扫描配货明细表的各物料编码的数量求和统计，条件是收货单号为空。-----什么方法统计简单。

比如物料编码：1有2个；物料编码：2有3个

然后这个统计结果作为cktj.text.

 

此主题相关图片如下：统计.png

 不就是分组统计么？

 

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

 

Dim cktj As WinForm.Button = e.Form.Controls("Button1")
                Dim b As New  GroupTableBuilder("统计表1",DataTables("扫描配货明细"))
                b.Filter = "收货单号 is null and 物料编码 > 0" '仅统计客户为CS01的记录
                b.Groups.AddDef("物料编码") '根据产品分组
                b.Totals.AddDef("数量") '对数量进行统计
                b.Build '生成统计表
                Dim str1 As String
                Dim lst2 As List(of DataRow) = DataTables("统计表1").datarows
                For Each mr As DataRow In lst2
                    str1 += "物料编码:" & mr("物料编码") & "--" & mr("数量") & ";"
                Next
                cktj.text = str1

 

这么写对吗？

Dim str As String = ""
For Each bm As String In DataTables("扫描配货明细").GetValues("物料编码")
    Dim sum As Double = DataTables("扫描配货明细").Compute("sum(数量)", "物料编码 = '" & bm & "'")
    str &= "物料编码:" & bm & "--" & sum & ";"
Next
msgbox(str)

物料编码不能为空，物料编码 > 0----不对吗？
                Dim str1 As String = ""
                For Each wlbm As String In DataTables("扫描配货明细").GetValues("物料编码","状态 = '生产结束扫描完成' and 收货单号 is null and 物料编码 > 0")
                    Dim sum1 As Integer = DataTables("扫描配货明细").Compute("sum(数量)", "物料编码 = '" & wlbm & "'")
                    str1 &= "物料编码:" & wlbm & "--" & sum1 & ";"
                Next
                cktj.text = str1
                msgbox(str1 & vbcrlf & cktj.text)

这个意思？

 

For Each wlbm As String In DataTables("扫描配货明细").GetValues("物料编码","状态 = '生产结束扫描完成' and 收货单号 is null and 物料编码 is not null")