총 열 값을 얻는 방법

Question

플렉스 그리드를 사용합니다.

id value 

001 200 
003 400 
002 600 
... 

I 플렉스 그리드 값 열, 합계 (값)을 요약하려는

수 Flexgrid 행 마지막 우측 테이블로 채운다 내가 보여주고 싶은 적 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