jortiz

denciso respondió: La rutina debe de ser: Private Sub SumaGrid() Dim Total as Double,i as integer total=0 for i=0 to grid.rows-1 grid.row = i total= total+grid.columns("iva").value next lblTotalIVA.caption= total end sub