Como sumar registros

[ReViJa]

Tengo un programa de contabilidad en vb y me gustaria saber como puedo sumar todos los registros de una columna(ej. Gasto) y que el resultado lo muestre en un textBox.
El programa corre con Adodc y  la tabla con Access 2003.

[Slasher-K]

Podrías hacer un bucle por todos los registros y usar una variable para sumar cada valor, vamos que es algo muy básico.

Por ej:

Código [Seleccionar] Expandir


Function AddReg(csRecordset As Recordset, FieldIndex As Integer) As Long
        Dim lData&

  Call csRecordset.MoveFirst
 
  Do While Not csRecordset.EOF
    If IsNumeric(csRecordset(FieldIndex)) Then
      lData = lData + CLng(csRecordset(FieldIndex))
    End If
  Loop

  AddReg = lData
End Function


Busca un poco en google o en la documentación del control antes de prguntar.

Saludos.

[ReViJa]

El que no sabe, es como el que no ve..
Gracias.