| Usuario |
Sumar datos de una MSFlexGrid |
Desconocido
|
| Enviado - 1/12/2004 |
| |
Hola, ojala me puedan ayudar. tengo una MSFlexgrid y en la columna 2 tengo unos valores que deseo sumar. como le hago para que realice las operaciones y el resultado lo coloque en una caja de texto.
Gracias. Ingrid |
| |
|
l_island
117 Mensaje(s)
|
| Enviado - 2/12/2004 |
| |
Este es un ejemplo:
Private Sub Command1_Click()
Dim intcontador As Integer
Dim dblTotal As Double
For intcontador = 0 To MSFlexGrid1.Rows - 1
If Not IsNumeric(MSFlexGrid1.TextMatrix(intcontador, 1)) Then MSFlexGrid1.TextMatrix(intcontador, 1) = 0
dblTotal = dblTotal + CDbl(MSFlexGrid1.TextMatrix(intcontador, 1))
Next intcontador
Text1.Text = dblTotal
End Sub
Saludos!!
l_island |
| |
|
|
|
