Hola,
Tengo un código que funciona perfectamente hasta que decido insertar la
función inputbox y me da el siguiente error. "Update no puede encontrar
TableMapping "PedidoLFV" o datatable "PedidoLFV"
Adjunto el código:
Después de añadir las líneas en rojo, es cuando ha empezado a dar este
error. Si suprimo las líneas todo va perfecto.
Sub EscribirRegistroLFV(ByVal registro As DataRow, ByVal Tabla As DataTable)
Dim RegistroLFV As DataRow
Dim a as object
a=inputbox("Introduce la letra A")
RegistroLFV = Tabla.NewRow
RegistroLFV("NPedido") = CInt(Trim(TxtPedido.Text))
RegistroLFV("Descripcion") = registro("Descripcion")
RegistroLFV("Dim1") = CInt(registro("Dim1"))
Tabla.Rows.Add(RegistroLFV)
Adaptador.Update(Ds, "PedidoLFV")
Tabla.AcceptChanges()
End Sub
Gracias,
Iratxe
Leer las respuestas