Visual Basic.NET - ayuda con funcion para sumar valores

   
Vista:

ayuda con funcion para sumar valores

Publicado por RAUL (2 intervenciones) el 16/02/2008 00:44:41
hola estoy haciendo un pequeño programa para controlar gastos , tengo un problema tengo una bd en access y tengo una funcion para crear la tabla es esta:

Function SUMARGASTOS() As Dataset1.GASTODataTable
Dim consulta As String
consulta = "SELECT * FROM GASTO"
Dim COMANDO As OleDb.OleDbCommand = New OleDb.OleDbCommand(consulta, CONEXION)
Dim TABLA As Dataset1.GASTODataTable = New Dataset1.GASTODataTable

Dim ADAPTADOR As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(COMANDO)
Try
ADAPTADOR.Fill(TABLA)
Catch ex As Exception
MsgBox(ex.Message)
End Try

Return TABLA
End Function

y el procedimiento para recorrer la tabla y sumar los gastos es este:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
Dim TABLA As Dataset1.GASTODataTable = New Dataset1.GASTODataTable
Dim SUMA As Integer = 0
TABLA = SUMARGASTOS()
Dim REGISTRO As Dataset1.GASTORow
REGISTRO = TABLA.Rows(0)
Dim NUMERO As Integer = 0

REGISTRO = TABLA.Rows(0)

For NUMERO = 0 To TABLA.Rows.Count - 1
SUMA = SUMA + REGISTRO.MONTOGASTO

Next
TGASTOS.Text = SUMA

End Sub

mi problema es que me suma solo el primer registro, y he probado varias cosas para q recorra, pero no me doy cuenta , recien estoy arrancando asi espero alguna ayudita , muchas graciasss
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con funcion para sumar valores

Publicado por alberto (12 intervenciones) el 16/02/2008 10:21:05
modifica el bucle para que quede:
For NUMERO = 0 To TABLA.Rows.Count - 1
REGISTRO=TABLA.ROWS(NUMERO)
SUMA = SUMA + REGISTRO.MONTOGASTO

Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con funcion para sumar valores

Publicado por RAUL(SOLUCIONADO) (2 intervenciones) el 16/02/2008 13:05:22
heyyy graciass, sabia que mi problema era que no incrementaba el valor de numero en el registro o sea que no le decia a la funcion q cambie al proximo registro pero no me daba cuenta como, bueno muchasss gracias y a las ordenes , saludos desde montevideo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar