如何在MSHFLEXGRID中表达求和？

Question

我在MSHFLEXGRID设了六行，在第6列是金额，我想将此列求和，
至于函数我已写成如下：
Function GetALLjeSum(m As Integer) As Double
On Error Resume Next
GetALLjeSum = 0
  For i = 1 To 5
    GetALLjeSum = GetALLjeSum + MSHFlexGrid1.TextMatrix(i, 6)
  Next i
End Function但是我想不出该如何表达GETALLJESUM（？），谢谢！

Answer 1

Function GetALLjeSum(m As Integer) As Double
On Error Resume Next
for j =1 to MSHFlexGrid1.cols-1
GetALLjeSum = 0
  For i = 1 To 5
    GetALLjeSum = GetALLjeSum + MSHFlexGrid1.TextMatrix(i, j)
  Next i
  MSHFlexGrid1.TextMatrix(6, j)=GetALLjeSum
next j
End Function