Visual Basic - Duda con Datagrid

Life is soft - evento anual de software empresarial
 
Vista:

Duda con Datagrid

Publicado por jesus (48 intervenciones) el 11/05/2005 00:22:10
Hola!!

Estoy usando un datagrid en un programa para facturacion y quisiera saber cómo sumar una columna del datagrid e imprimir el resultado en un TextBox.

Agradesco cualquier ayuda o comentario.
Gracias!!
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:Duda con Datagrid

Publicado por hector (38 intervenciones) el 11/05/2005 01:10:19
por que usas el datagrid yo creo que es mejor usar un recorset y asignar los valores por que el datagrid yo creo que limita. yo no se usar el datagrid desde un principio eso me enseñaron y despues lo vi y por eso no lo uso.

si sabes usarlo se me ocurre que le pases el valor a una variable y dentro de un ciclo estes sumandola hasta que sea fin del data grid

suerte
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:Duda con Datagrid

Publicado por jesus (48 intervenciones) el 11/05/2005 09:14:48
ok hector

voy a usar el recorset, lo que pasa es que soy nuevo en visual basic, muchas gracias y si me sale alguna duda puedas ayudarme.
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:Duda con Datagrid

Publicado por Matías Freire (421 intervenciones) el 11/05/2005 19:36:25
Podés hacer así:

dim registros as long
dim i as long
dim subtotal as double

registros = recordset.Recordcount
For i = 1 to registros
datagrid.col = x ' acá tenes que poner el numero de columna
que queres sumar
datagrid.row = i
subtotal = subtotal + val(datagrid.text)
next i

textbox.text = str(subtotal)

Espero que te sirva
Saludos!!!
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:Duda con Datagrid

Publicado por fede (189 intervenciones) el 10/06/2005 17:32:01
fijáte que totalito es el nombre del campo de mi BD

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

txttotal = totiva2 ' este es el textbox
End With
End Sub
suerte
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