Как получить общее значение столбца

Question

Использование flexgrid.

FlexGrid рядок

id value 

001 200 
003 400 
002 600 
... 

Я хочу суммировать столбец значений, сумма (значение) в гибкой сетке,

FlexGrid строка заполнение из таблицы, по крайней правой стороне я хочу, чтобы показать итого значение столбца в самой гибкой сетке. Как это сделать.

Ожидаемый выход

id value 

001 200 
003 400 
002 600 
........ 

Total 1200 ' I want to show the total in flex grid itself... 

Answer 1

Private Sub Command1_Click() 
    Dim intRow As Integer 
    Dim intTotal As Integer 
    intTotal = 0 
    With MSFlexGrid1 
    For intRow = 0 To .Rows - 2 
     intTotal = intTotal + Val(.TextMatrix(intRow, 1)) 
    Next intRow 
    .TextMatrix(3, 1) = CStr(intTotal) 
    End With 'MSFlexGrid1 
End Sub 

Private Sub Form_Load() 
    With MSFlexGrid1 
    .TextMatrix(0, 0) = "001" 
    .TextMatrix(1, 0) = "003" 
    .TextMatrix(2, 0) = "002" 
    .TextMatrix(0, 1) = "200" 
    .TextMatrix(1, 1) = "400" 
    .TextMatrix(2, 1) = "600" 
    .TextMatrix(3, 0) = "Total" 
    End With 'MSFlexGrid1 
End Sub