Dim i as Double = 0For rr As integer = 0 To tb.Rows.Count -1 i=i+tb(rr,3)*tb(rr,4)Next
晕,tb.compute("sum(金额)")不行吗?