none
AL pasar los datos de una Forma a otra con .ShowDialog() me borra los contenidos de las cajas de texto. (forma edicion) RRS feed

  • Pregunta

  • Tengo un 2 formas una es Cataologo de proveedor y la otra es Catalogo de productos  de la cual llamo al proveedor pero al cargar al proveedor me borra los datos de la cajas de texto de los productos.

    la craga del proveedor lo hago dando enter en la caja de texto llamada IdProveedor de la forma Catalogo de productos  posteriormente abre una subventana  donde hago dobleclick en grid y carga al proveedor en sus respactivas cajas de texto pero al cagar me borra los datos del producto que son 16 campos. les dejo el codigo gricias:

    Codigo del CATALOGO DE PROVEEDORES

     Private Sub GridProvedores_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles GridProvedores.CellContentDoubleClick

            Dim FrmCatProd As New FrmCatalogoProd
            If e.RowIndex = -1 Then
                Return
            End If
            Dim loFila As DataGridViewRow = GridProvedores.CurrentRow()

            'Using FrmCatProd As New FrmCatalogoProd
            FrmCatProd.ClveProveedor = loFila.Cells("ClaveProv").Value.ToString
            FrmCatProd.Proveedor = loFila.Cells("Empresa").Value.ToString

            '' Pasa los Datos en la forma
            VariablesG.Provee_Var1 = FrmCatProd.ClveProveedor
            VariablesG.Provee_Var2 = FrmCatProd.Proveedor

            Me.Hide()
            ' Moverme = FrmCatalogoProd
            ' Moverme.Show()

            FrmCatProd.ShowDialog()



            'End Using

        End Sub

    CODIGO DONDE CARGO LOS DATOS LLAMADOS DEL PROVEDOR EN LA FORMA CATALOGODEPRODUCTOS

     Private Sub FrmCatalogoProd_Load(sender As Object, e As EventArgs) Handles MyBase.Load


            Conectar.Close()
            Conectar.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Solis\Documents\BDatos\Aduanet\BDAduanet.accdb")
            Conectar.Open()

            ColorCajasTexto()
            Bloquearcajastexto()
            BloquearBotones()

            BtonNuevo.Enabled = True
            BtonEditar.Enabled = True


            'MUESTRA LOS CAMPOS DEL PRODUCTO
           ' TextIdProd.Text = VariablesG.Prod_Var1
           ' RichProducto.Text = VariablesG.Prod_Var2

            'MUESTRA LOS CAMPOS DEL PROVEEDOR
            TxtIdProveedor.Text = VariablesG.Provee_Var1
            TxtProveedor.Text = VariablesG.Provee_Var2

            LlenarComboUniades()
            LlenarGrilla()

        End Sub

    domingo, 11 de octubre de 2020 21:31

Todas las respuestas

  •  Hola:
     Prueba este codigo  y nos comentas
     
     Private Sub GridProvedores_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles GridProvedores.CellContentDoubleClick
            If e.RowIndex = -1 Then
                Return
            End If
            Dim loFila As DataGridViewRow = GridProvedores.CurrentRow()

            Using FrmCatProd As New FrmCatalogoProd
                FrmCatProd.ClaveProv = loFila.Cells("ClaveProv").Value.ToString
                FrmCatProd.Proveedor = loFila.Cells("Empresa").Value.ToString
                FrmCatProd.ShowDialog()
            End Using

        End Sub
        
        
        
    Public Class FrmCatalogoProd
        Public Property ClaveProv As String
        Public Property Proveedor As String

        Private Sub FrmCatalogoProd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        
                'Conectar.Close()
                'Conectar.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Solis\Documents\BDatos\Aduanet\BDAduanet.accdb")
                'Conectar.Open()
        
                'ColorCajasTexto()
                'Bloquearcajastexto()
                'BloquearBotones()
        
                'BtonNuevo.Enabled = True
                'BtonEditar.Enabled = True
        
                'MUESTRA LOS CAMPOS DEL PROVEEDOR
                TxtIdProveedor.Text = ClaveProv
                TxtProveedor.Text = Proveedor
        
                'LlenarComboUniades()
                'LlenarGrilla()
        
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos

    lunes, 12 de octubre de 2020 7:22
  • Hola 75Solis

    La respuesta que te proporcionó J. Carlos te fue útil? Por favor, háznoslo saber!

    Saludos

    martes, 13 de octubre de 2020 17:07
    Moderador