Carga de datos en TextBox desde una tabla con desfase
Publicado por fermin (1 intervención) el 28/09/2011 10:40:52
Hola a todos.
He creado un Form1 y he arrastrado una tabla CABFACTURA en formato Detalle y me ha creado la correspondiente barra de navegación
Despues he creado un TextBox para almacenar en el el valor del campo FACTURA de la tabla CABFACTURA pero cuando avanzo con la barra de navegación, en el Text.Box carga el valor del registro anterior
Os dejo el código.
Gracias de antemano
Public Class Form1
Private Sub CABFACTURABindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CABFACTURABindingNavigatorSaveItem.Click
Me.Validate()
Me.CABFACTURABindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.FYMELECVentasDataSet)
TextBox1.Text = FACTURATextBox.Text
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'FYMELECVentasDataSet.CABFACTURA' table. You can move, or remove it, as needed.
Me.CABFACTURATableAdapter.Fill(Me.FYMELECVentasDataSet.CABFACTURA)
TextBox1.Text = FACTURATextBox.Text
End Sub
Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click
TextBox1.Text = FACTURATextBox.Text
End Sub
End Class
He creado un Form1 y he arrastrado una tabla CABFACTURA en formato Detalle y me ha creado la correspondiente barra de navegación
Despues he creado un TextBox para almacenar en el el valor del campo FACTURA de la tabla CABFACTURA pero cuando avanzo con la barra de navegación, en el Text.Box carga el valor del registro anterior
Os dejo el código.
Gracias de antemano
Public Class Form1
Private Sub CABFACTURABindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CABFACTURABindingNavigatorSaveItem.Click
Me.Validate()
Me.CABFACTURABindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.FYMELECVentasDataSet)
TextBox1.Text = FACTURATextBox.Text
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'FYMELECVentasDataSet.CABFACTURA' table. You can move, or remove it, as needed.
Me.CABFACTURATableAdapter.Fill(Me.FYMELECVentasDataSet.CABFACTURA)
TextBox1.Text = FACTURATextBox.Text
End Sub
Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click
TextBox1.Text = FACTURATextBox.Text
End Sub
End Class
Valora esta pregunta


0