luca103
26 de Marzo del 2004

UTILIZO UN DBGRID PARA MOSTRAR LOS DATOS DE UNA CONSULTA, UNO DE LOS CAMPOS ES NUMERICO, SERIA POSIBLE MOSTRAR EN UN CAMPO TEXT EL TOTAL DE ESE CAMPO NUMERICO?

sdemingo
26 de Marzo del 2004

Hola,

Private Sub Command1_Click()

Dim i As Double

Text1.Text = "0"

For i = 0 To Data1.Recordset.RecordCount - 1
Text1.Text = CDbl(Text1.Text) + CDbl(DBGrid1.Columns(1).Text)
Next i

End Sub

Salu2
sdemingo

luca103
26 de Marzo del 2004

Gracias por el codigo, pero lo hago paso a paso y nunca me hace la suma bien.

sdemingo
26 de Marzo del 2004

Supongo que o será eso, pero donde pongo Columns(1) tu tienes que poner la columna en la que muestras el campo que quieres sumar (empiezan a contar por Columns(0)

salu2
sdemingo

luca103
26 de Marzo del 2004

No, por eso no es, ya que eso que me dices lo hago bien, no se, piensas que tendra algo que ver si el campo es tipo text, long o double? yo estoy utilizando tipo long.