如何汇总mshflexgrid中的数据

Question

我想将mshflexgrid中某一列中显示的数据的在最后一行进行汇总，就是最后一行得这一列是上面各列得数据得和，请问如何实现？

Answer 1

Dim a As Integer
Dim sum As Double
a = MSFlexGrid1.Rows - 1
For i = 1 To a - 1
  MSFlexGrid1.Row = i
  MSFlexGrid1.Col = 哪一列
  sum = sum + MSFlexGrid1.Text
Next
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 哪一列
MSFlexGrid1.Text = sum

Answer 2

total = 0
For i = 1 To MSHFlexGrid1.Rows - 1
    total = total + Val(MSHFlexGrid1.TextMatrix(i, 列))
Next i
MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Rows - 1, 列) = total