none
Pasar los Datos de un Gridview del Form1 a las cajas de texto del Form2 RRS feed

  • Pregunta

  • Tengo una BD de productos que lo que requiero es pasar los datos del Grid llamado GridAgregar que esta en la FrmAltaProductos que es la matriz ya que ahi doy de Alta el producto y quiero pasar ciertos campos al FrmGastosAduana

    Mi codigo esta asi:

    Private Sub GridAgregar_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles GridAgregar.CellDoubleClick

            'Dim frm2 As FrmGastosAduana = CType(Owner, FrmGastosAduana)
            Dim frm As New FrmAltaProductos
            Dim frm2 As New FrmGastosAduana

            frm2.TxtProducto.Text = GridAgregar.CurrentRow.Cells(0).Value.ToString()
            frm2.TxtArticulo.Text = GridAgregar.CurrentRow.Cells(1).Value.ToString()
            frm2.TxtCategoria.Text = GridAgregar.CurrentRow.Cells(2).Value.ToString()
            frm2.TxtPresentacion.Text = GridAgregar.CurrentRow.Cells(3).Value.ToString()
            frm2.RichDescripcion.Text = GridAgregar.CurrentRow.Cells(4).Value.ToString()
            frm2.TxtCantidad.Text = GridAgregar.CurrentRow.Cells(5).Value.ToString()
            frm2.TxtUnitario.Text = GridAgregar.CurrentRow.Cells(6).Value.ToString()
            frm2.TxtTotal.Text = GridAgregar.CurrentRow.Cells(7).Value.ToString()

            '*********************************************************************
            'Me.TxtIdProducto.Text = frm2.GridGastos.CurrentRow.Cells(0).Value.ToString()
            'Me.CboArticulo.Text = frm2.GridGastos.CurrentRow.Cells(1).Value.ToString()
            'Me.CboCategoria.Text = frm2.GridGastos.CurrentRow.Cells(2).Value.ToString()
            'Me.TxtPresentacion.Text = frm2.GridGastos.CurrentRow.Cells(3).Value.ToString()
            'Me.RichDescripcion.Text = frm2.GridGastos.CurrentRow.Cells(4).Value.ToString()
            'Me.TxtCantidad.Text = frm2.GridGastos.CurrentRow.Cells(5).Value.ToString()
            'Me.TxtFobUnitario.Text = frm2.GridGastos.CurrentRow.Cells(6).Value.ToString()
            'Me.TxtFobTotal.Text = frm2.GridGastos.CurrentRow.Cells(7).Value.ToString()

            Dim frm1 As New FrmGastosAduana
            AddOwnedForm(frm1)
            frm1.ShowDialog()

            Me.Close()

        End Sub

    NOTA: Hice 2 procedimiento en el primero no manda nada ni marca  error que se supone es el bueno... y en el segundo que esta despues de los asteriscos que es una prueba manda error de 'Referencia a objeto no establecida como instancia de un objeto.'

    Me podrian ayudar por favor. soy nuevo en esto....... de antemano muchas garcias al foro.

    miércoles, 2 de septiembre de 2020 2:30

Respuestas

  • Hola 75Solis

    Ya tienes una respuesta al parecer, excelente. Si tienes alguna otra consulta no dudes en usar los foros de MSDN!

    Saludos y bendiciones de igual forma!

    --------------------------------------------------------------------------------

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

    Si tiene algún cumplido o reclamo sobre el soporte de MSDN sientase en la libertad de contactar  MSDNFSF@microsoft.com. 

    miércoles, 2 de septiembre de 2020 17:45
    Moderador

Todas las respuestas

  • Estás creando un objeto FrmGastosAduana en frm2 y estás rellenando sus controles pero no lo estás visualizando.
    Después de rellenar los valores debes poner frm.ShowDialog() si quieres que se muestre como modal.

    Lo que haces al final con AddOwnedForm es crear otro formulario y mostrarlo como hijo del formulari oen el que esté el código.

    Sustituye las líneas

    Dim frm1 As New FrmGastosAduana
    AddOwnedForm(frm1)
    frm1.ShowDialog()

    por

    AddOwnedForm(frm2)
    frm2.ShowDialog()

    para que muestre el formulario en el que has rellenado los valores.

    También podrías quitar la línea Dim frm As New FrmAltaProductos
    porque no usas frm.


    Saludos, Javier J

    miércoles, 2 de septiembre de 2020 7:49
  • Ooooooohhhhh  jajaj ya quedo mil mil Gracias Javier

    ya hice lo que me indicas y listo ya funciona muchas, muchas gracias por la aportacion y por su tiempo a este foro.

    Bendiciones desde Cdmx Mexico.

    miércoles, 2 de septiembre de 2020 16:04
  • Hola 75Solis

    Ya tienes una respuesta al parecer, excelente. Si tienes alguna otra consulta no dudes en usar los foros de MSDN!

    Saludos y bendiciones de igual forma!

    --------------------------------------------------------------------------------

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

    Si tiene algún cumplido o reclamo sobre el soporte de MSDN sientase en la libertad de contactar  MSDNFSF@microsoft.com. 

    miércoles, 2 de septiembre de 2020 17:45
    Moderador