buenas tardes, este es el código.
las variables campo_proveedor, campo_matricula, campo_km, campo_coste, están definidas en elmodulo y es donde se almacenan los datos en el otro formulario para actualizar el grid
Private Sub DataGridView10_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView10.GotFocus
If interruptor_proveedores = 2 Then
' esta caja se esta solo para comprobar que fila tendría que modificar
TextBox4.Text = ind
interruptor_proveedores = 0
'actualizamos el datagrid de los gastos por proveedor
Me.DataGridView10.Item(0, ind).Value = campo_proveedor
Me.DataGridView10.Item(1, ind).Value = campo_matricula
Me.DataGridView10.Item(2, ind).Value = campo_km
Me.DataGridView10.Item(3, ind).Value = campo_coste
Me.DataGridView10.Update()
campo_proveedor =""
campo_matricula =""
campo_km = 0
campo_coste = 0
'actualizamos la linea de resultados finales
Dim i As Integer
campo_baseimponible =
Me.DataGridView4.Item(1, 0).Value
preciocoste_total = 0
For i = 0 To Me.DataGridView10.RowCount - 1
preciocoste_total = preciocoste_total + DataGridView10.Item(i, 0).Value
Next
Me.DataGridView4.Item(0, 0).Value = preciocoste_total
Me.DataGridView4.Item(1, 0).Value = campo_baseimponible
Me.DataGridView4.Item(2, 0).Value = ((campo_baseimponible - preciocoste_total) * 100) / campo_baseimponible
Me.DataGridView4.Item(3, 0).Value = dr_total(dcolumna_precioventa_total) - dr_total(dcolumna_preciocoste_total)
Me.DataGridView4.Update()
End If
End Sub
gracias