Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ReViJa en 26 Junio 2005, 11:47 am


Título: Como sumar registros
Publicado por: ReViJa en 26 Junio 2005, 11:47 am
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.

Título: Re: Como sumar registros
Publicado por: Slasher-K en 26 Junio 2005, 11:53 am
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:
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.

Título: Re: Como sumar registros
Publicado por: ReViJa en 26 Junio 2005, 12:23 pm
El que no sabe, es como el que no ve..
Gracias.


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines