Sumar una columna completa en un FlexGid de Ms. Visual Basic 6.0

Este ejemplo es útil por ejemplo al momento de querer recorrer las celdas contenidas en una columna con el fin de buscar un dato en particular, sumar o restar valores. Yo la he utilizado en el desarrollo de sistemas de facturación al momento de querer obtener el subtotal de la factura. 

Esa función tiene por nombre SumarSubTotales, devuelve un valor double (el resultado de la suma), recibe 2 parámetros (el nombre de un Flex en el cual se hará el recorrido y un número (col) el cual indica que columna es la que se va a sumar.

Function SumarSubTotales(flex As MSFlexGrid, col As Integer) As Double

  With flex

    For i = 2 To .Rows - 1

        SubT = SubT + .TextMatrix(.Rows - i, col)

    Next i

  End With

  SumarSubTotales = Round(SubT, 2)

End Function

---

---