Problemas al sumar columna de DataGrid en VB6
Tengo problemas con la suma de una columna de un DataGrid. El código realiza bien la operación con las celdas visibles de la columna de DG, cuando hay filas no visibles aparece error 6148 - Número de fila incorrecto. El código que tengo para sumar la columna del DG es el siguiente:
Sub SUMAR_COL()
total_fact.Text = 0
formato = "###,###,00"
DataGrid1.Col = 4
For I = 0 To (DataGrid1.ApproxCount - 1)
DataGrid1.Row = I
val1 = val1 + CDbl(DataGrid1.Columns(4))
DataGrid1.Refresh
Next I
total_fact.Text = Format(val1, formato)
End Sub
1 respuesta
Respuesta de Roberto Alvarado
1