主题：按钮统计

师傅你好：

现有按钮统计代码如下：

Dim dtb As New DataTableBuilder("统计") dtb.AddDef("规格", Gettype(String), 32) dtb.AddDef("订单数", Gettype(Integer), 32) dtb.AddDef("加工数", Gettype(Integer)) dtb.AddDef("结存数", Gettype(Double),"订单数 - 加工数") dtb.Build() Dim lst As List(of String) = DataTables("导线订单").GetUniqueValues("","规格") Dim dr As DataRow For Each dd As String In lst     dr = DataTables("统计").AddNew()     dr("规格")  = dd     dr("订单数")  = DataTables("导线订单").Compute("Sum(订单数)","规格 = '" & dd & "'")     dr("加工数")  = DataTables("订单加工").Compute("Sum(加工数)","规格 = '" & dd & "'") Next dr = DataTables("统计").AddNew() dr("规格")  = "合计" dr("订单数")  = DataTables("导线订单").Compute("Sum(订单数)") dr("加工数")  = DataTables("订单加工").Compute("Sum(加工数)") 上述代码只有一个规格列，如果再增加部门、性质、订单号列，其它不变，不知如何处理，请师傅帮忙把代码改一下。谢谢！

师傅你好：

1楼代码能再增加四项内容吗，谢谢！

细看：

 

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

 

师傅你好：

现有两张表，A表是铁盘订单表，B表是铁盘组装表，在B表录入窗口增加了一个统计按钮，增加下列代码，统计无结果。主要是对两张表中，同部门、同订单编号、同规格尺寸的订单数量和加工数量进行统计。对底行有合计。请师傅帮助把代码修正一下，谢谢！

 

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("部门", Gettype(String), 32)
dtb.AddDef("订单编号", Gettype(String), 32)
dtb.AddDef("规格尺寸", Gettype(String), 32)
dtb.AddDef("订单数量", Gettype(Integer))
dtb.AddDef("加工数量", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数量 - 加工数量")
dtb.Build()
For Each nm() As String In DataTables("铁盘订单").GetUniqueValues("","部门","订单编号","规格尺寸")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("部门") = nm(0)
    dr("订单编号") = nm(1)
    dr("规格尺寸") = nm(2)
    dr("订单数量") = DataTables("铁盘订单").Compute("Sum(订单数量)","[部门] = '" & nm(0) & "' And [订单编号] = '" & nm(1) & "' And [规格尺寸] = '" & nm(2) & "'")
    dr("铁盘组装") = DataTables("铁盘组装").Compute("Sum(加工数量)","[部门] = '" & nm(0) & "' And [订单编号] = '" & nm(1) & "' And [规格尺寸] = '" & nm(2) & "'")
Next

dr = DataTables("统计").AddNew()
dr("部门")  = "合计"
dr("订单数量")  = DataTables("铁盘订单").Compute("Sum(订单数量)")
dr("加工数量")  = DataTables("铁盘组装").Compute("Sum(加工数量)")

设计好两个表，输入一点测试数据，然后发上来。

谢谢师傅：

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

点击浏览该文件:盘具订单.table

 dr("铁盘组装") = DataTables("铁盘组装").Compute("Sum(加工数量)","[部门] = ······

师傅你好：

保存代码时，运行时出现dr未声明，不知如何解决，还请师傅帮忙，谢谢！

是此代码：dr = DataTables("统计").AddNew()

····

Next

Dim dr0 As DataRow = = DataTables("统计").AddNew()
dr0("部门")  = "合计"
dr0("订单数量")  = DataTables("铁盘订单").Compute("Sum(订单数量)")
dr0("加工数量")  = DataTables("铁盘组装").Compute("Sum(加工数量)")