以下是引用yangming在2009-8-21 13:33:00的发言: 这样,只是做一个汇总行 Dim r As Row = CurrentTable.Rows.AddNew() r("产品")="总计" r("数量")=CurrentTable.Compute("Sum(数量)") r("单价") =CurrentTable.Compute("Sum(单价)")/CurrentTable.Compute("Count(单价)") MessageBox.Show(CurrentTable.Compute("Count(单价)"))