需使用代码处理，类似：http://www.foxtable.com/webhelp/topics/1911.htm
Dim t As Table = Tables("表D")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.GroupOn = "*"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row = Tables("表D").Rows(Tables("表D").Rows.count(True) - 1,True)
Dim Products As List(Of String()) = DataTables("表D").GetValues("入库日期|工序|投入数|产出数|不良品数")
Dim a,b,c As Integer
For Each ss As String() In Products
a = a + cint(ss(2))
b = b + cint(ss(3))
c = c + cint(ss(4))
Next
r("投入数") =a
r("产出数") =b
r("不良品数") =c
加好友 
发短信
Post By：2020/5/9 12:01:00 [显示全部帖子]
