bueno pongo cómo ha quedado ahora jeje pego sólo lo q es el cuerpo del bucle, la declaración de las variables supongo q no tendrá nada q ver jeje
Código:
If n = 0 Then
MessageBox.Show("No se ha encontrado ningún registro que coincida con la selección")
Else
If IsNumeric(TxtBxPorcentaje.Text) = True Then
For fila = 0 To n - 1
dr = dt.Rows(fila)
OleDbUpdateCommand.Connection = objConn
nNumero = dt.Rows(fila)("numero")
porcentaje2 = nNumero + TxtBxPorcentaje.Text
MessageBox.Show("nNumero:" & nNumero & "porcentaje2: " & porcentaje2)
OleDbUpdateCommand.CommandText = "UPDATE Numeros SET numero = " & porcentaje2 & " WHERE ID = " & identificador
OleDbUpdateCommand.ExecuteNonQuery()
If (identificador <= n) Then
identificador = identificador + 1
End If
Next
Else
MessageBox.Show("El valor que ha introducido para actualizar la base de datos no es válido, recuerde que debe ser de tipo númerico", "Aviso")
End If
gracias de nuevo por el interés amigo!