楼主你这样改一下代码看看吧。
Dim r As Row For i As Integer = 1 To t.Rows.Count(True) - 1 r = t.Rows(i,True) If r.IsGroup '如果是分组行 Dim f As String = "产品 = '" & r("id") & "'" Dim v As String = " 数量:" & t.Compute("count(数量)",f) v = v & "金额:" & t.Compute("Sum(金额)",f) r("产品") = "产品:" & r("id") & v r("id") = nothing End If Next
|