Visual Basic - sumar un datagrid

Life is soft - evento anual de software empresarial
 
Vista:

sumar un datagrid

Publicado por sergio (1 intervención) el 14/02/2005 20:32:44
como sumo una columna de un datagird, es para un sistema de facturacion, es la columna de totales.
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:sumar un datagrid

Publicado por Matías Freire (421 intervenciones) el 15/02/2005 14:30:14
Acá te mando una funcion MUUUUYYYY sencilla para hacer lo que necesitás. Espero que te sirva.... SALUDOS!!!

Private Function SumarColumnas as Single
Dim i as Integer
Dim parc as Single

datagrid.col = xx ' Acá va el numero de columna en donde tenes los
Parciales

For i = 1 to xx 'Acá tenes que poner la cantidad de registros que}
vas a sumar
parc = parc + val (datagrid.text)
Next i

SumarColumnas = parc
End Function
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:sumar un datagrid

Publicado por Aijuna (2 intervenciones) el 15/02/2005 18:45:00
no uses VAL porque te corta los decimales, en todo caso usa cdbl(\"0\" & datagrid.text), esto hace que te lo convierta en decimal doble y que si no hay nada escrito no te tire error.
o sea

parc = parc + cdbl(\"0\" & datagrid.text)
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:sumar un datagrid

Publicado por fede (189 intervenciones) el 10/06/2005 17:09:10
otra pude ser asi si lo mostras en un textbox fuera del dgrid
cuando el textbox tiene el foco lo suma
totalito es el nombre del campo que use en esa tabla
lo que sigue lo hice para calcular iva
suerte
espero sirva
fede argentina

Private Sub txttotal_GotFocus()
Dim TOTALES
With dtetecno.rsingreso ' esta es la coneccion con su recordset
.MoveFirst
TOTALES = 0
While Not .EOF
TOTALES = TOTALES + !totalito
.MoveNext
Wend
totiva1 = TOTALES * (iva1 / 100)
totiva2 = TOTALES + totiva1

txttotal = totiva2
End With
End Sub
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