Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim t As Table = Tables("订单")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
g = New SubtotalGroup
g.GroupOn = "产品"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
r = t.Rows(i,True)
If r.IsGroup '如果是分组行
Dim f As String = "产品 = '" & r("产品") & "'"
Dim v As String = " 订单数:" & t.Compute("Count(日期)",f)
v = v & " 订购数量:" & t.Compute("Sum(数量)",f)
v = v & " 订购金额:" & t.Compute("Sum(金额)",f)
r("产品") = "产品:" & r("产品") & v
End If
Next
请教 如果compute 多个条件 该如何处理 ?因为其他字段都是空值