主题：按钮统计

师傅你好：

现有按钮统计代码如下：

师傅你好：

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

师傅你好：

现有两张表，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未声明，不知如何解决，还请师傅帮忙，谢谢！

保存代码时有提示：

编译错误：应为表达式

错误代码：Dim dr0 As DataRow = = DataTables("统计").AddNew()

师傅你好：

上述按钮代码保存执行后，加工数量列没有数字显示。