Pasar datos de un DataGridView a un Formulario
Publicado por Silvia Mendez (5 intervenciones) el 06/04/2012 00:55:09
Recupero datos de un DataGridView (que se relaciona mediante un DataSet a la tabla Contratos) para trasladar a un formulario (que se relaciona a una tabla cobros) donde se llenara datos para realizar la actualizacion de cobranzas, de los datos que recupero del DataGridView cuando se abre el formulario Cobros los los objetos TextBox del formulario quedan vacios, no se por que no llena con los datos recuperados del DataGridView que existen (ya que mediante el depurador verifique los valores de mNumContrato y mCuotaNo que son los del DataGridView ), por favor si pueden darme una ayuda.
El codigo es el siguiente:
' Esto es cuando selecciono una fila del DataGridView y
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
'COBRO CONTRATO
mCobro = -10
mFila = Me.ContratosDataGridView.CurrentRow.Index
mNumContrato = Me.ContratosDataGridView(0, mFila).Value
mCuotaNo = Me.ContratosDataGridView(9, mFila).Value
frmCobro.MdiParent = frmPrincipal
frmCobro.Show()
End Sub
Private Sub frmCobro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'DataSetCartera.Cobros' Puede moverla o quitarla según sea necesario.
If mCobro = -10 Then
Me.Text = Me.Text & " No. " & mBusca
Me.CobrosBindingSource.AddNew()
Me.FechaCobroDateTimePicker.Value = Now()
Me.NumContratoTextBox.Text = mNumContrato ' ESTE TEXTBOX LO MUESTRA VACIO Y NO CON mNumContrato
MsgBox("Nuevo cobro")
Me.ProximoCobroDateTimePicker.Value = Now().AddMonths(1)
Me.ReciboTextBox.Text = "1234" ' ESTE TEXTBOX TAMPOCO LO MUESTRA CON 1234 QUE LE PUSE PARA PROBAR
Me.NumeroCuotaTextBox.Text = mCuotaNo ' ESTE TEXTBOX LO MUESTRA VACIO Y NO CON mNumeroCuota
Me.ReciboTextBox.Focus() ' TAMPOCO APARECE EL TEXTBOX CON EL FOCO
Else
mBusca = CobrosBindingSource.Find("IdCobro", mBusca)
Me.CobrosBindingSource.Position = mFila
MsgBox("Editar Cobro")
If FacturaTextBox.Text > "0" Then
chkConFactura.Checked = True
FacturaTextBox.Enabled = True
End If
End If
End Sub
Quien puede resolver esto le estoy muy agradecida.
El codigo es el siguiente:
' Esto es cuando selecciono una fila del DataGridView y
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
'COBRO CONTRATO
mCobro = -10
mFila = Me.ContratosDataGridView.CurrentRow.Index
mNumContrato = Me.ContratosDataGridView(0, mFila).Value
mCuotaNo = Me.ContratosDataGridView(9, mFila).Value
frmCobro.MdiParent = frmPrincipal
frmCobro.Show()
End Sub
Private Sub frmCobro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'DataSetCartera.Cobros' Puede moverla o quitarla según sea necesario.
If mCobro = -10 Then
Me.Text = Me.Text & " No. " & mBusca
Me.CobrosBindingSource.AddNew()
Me.FechaCobroDateTimePicker.Value = Now()
Me.NumContratoTextBox.Text = mNumContrato ' ESTE TEXTBOX LO MUESTRA VACIO Y NO CON mNumContrato
MsgBox("Nuevo cobro")
Me.ProximoCobroDateTimePicker.Value = Now().AddMonths(1)
Me.ReciboTextBox.Text = "1234" ' ESTE TEXTBOX TAMPOCO LO MUESTRA CON 1234 QUE LE PUSE PARA PROBAR
Me.NumeroCuotaTextBox.Text = mCuotaNo ' ESTE TEXTBOX LO MUESTRA VACIO Y NO CON mNumeroCuota
Me.ReciboTextBox.Focus() ' TAMPOCO APARECE EL TEXTBOX CON EL FOCO
Else
mBusca = CobrosBindingSource.Find("IdCobro", mBusca)
Me.CobrosBindingSource.Position = mFila
MsgBox("Editar Cobro")
If FacturaTextBox.Text > "0" Then
chkConFactura.Checked = True
FacturaTextBox.Enabled = True
End If
End If
End Sub
Quien puede resolver esto le estoy muy agradecida.
Valora esta pregunta


0