Cargar ListView desde otro Winform

[klaudio83]

Holas Espero me puedan ayudar con esto, estoy trabajando en Visual Studio 2008 y utilizando vb.net

Tengo un winform(nueva_factura.vb) en ella se encuentran los datos del cliente, y ademas un ListView que contendra los productos con sus respectivo precio y cantidad.
Para agregar una nueva linea de producto presiono el boton "Nueva Linea" y se abre otro winform(nueva_linea_producto.vb) este tiene un boton para agregar un producto a traves de otro winform, una vez seleccionado se cargaran los datos del producto en nueva_linea_producto.vb y luego ingreso la cantidad y el precio asociado al producto. Y ademas el nueva_linea_producto.vb tiene un boton guardar.

La idea es que al apretar se ingrese automaticamente el producto con sus datos respectivos al Listview. pero que nueva_linea_producto.vb no se cierre inmediatamente, sino que permita ingresar otros productos.

Por lo tanto para este caso no me funciona lo que me mencionas, por que al intentar llamar a AgregarItem(...) despues del showdialog() y que esto funcione, tendria que cerrar nueva_linea_producto.vb al apretar el boton agregar.

Espero me puedan ayudar con esto, Muchas Gracias.

Codigo: nueva_factura.vb

Código vb.net:

Public Sub AgregarItem(ByVal id As String, ByVal cod As String, ByVal nombre As String, ByVal cantidad As String, ByVal precio As String, ByVal total As String, ByVal obs As String)
        Dim item As ListViewItem
        item = New ListViewItem(id)
        item.SubItems.Add(cod)
        item.SubItems.Add(nombre)
        item.SubItems.Add(cantidad)
        item.SubItems.Add(precio)
        item.SubItems.Add(total)
        item.SubItems.Add(obs)
        ListView1.Items.Add(item)
 
        modificar.Show()
        eliminar.Show()
 
        LblNeto.Text = CalculaNeto()
        LblNeto.Show()
 
        LblIva.Text = CalculaIva()
        LblIva.Show()
 
        LblTotal.Text = CalculaTotal()
        LblTotal.Show()
        
    End Sub
 

Codigo: nueva_linea_producto.vb

Código vb.net:

Private Sub guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guardar.Click
        If String.IsNullOrEmpty(txId.Text) Then
            ep.SetError(txId, "Ingrese un Producto")
            Exit Sub
        End If
 
        If String.IsNullOrEmpty(txPrecio.Text) Then
            ep.SetError(txPrecio, "Ingrese un Precio")
            'Exit Sub
            If String.IsNullOrEmpty(txCantidad.Text) Then
                ep.SetError(txCantidad, "Ingrese una Cantidad")
                Exit Sub
            End If
        End If
        ep.Clear()
        If String.IsNullOrEmpty(txCantidad.Text) Then
            ep.SetError(txCantidad, "Ingrese una Cantidad")
            'Exit Sub
            If String.IsNullOrEmpty(txPrecio.Text) Then
                ep.SetError(txPrecio, "Ingrese un Precio")
                Exit Sub
            End If
        End If
 
        Dim fila As Integer       
        For fila = 0 To My.Forms.nueva_factura.ListView1.Items.Count - 1
                Dim codProd As String = My.Forms.nueva_factura.ListView1.Items(fila).SubItems(0).Text
                If txId.Text = codProd Then
                    MessageBox.Show("Este Producto, Ya se Encuentra en la Linea de Detalle", "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    Exit Sub
            Next
            ep.Clear()
 
            'AQUI ANTES LLAMABA A LA FUNCION AgregarItem(...)
 
            Call LimpiarTextBox(Me)
        End If
    End Sub
 

[eperedo]

En este caso si deberías solucionarlo de la forma como lo hacías antes usando la superclase My.
Te dejo este código para que te des una idea.

[klaudio83]

Hola, no me funciono de la manera que me comentas en el proyecto que subiste. Osea el proyecto que subiste al compilarlo funciona bien (como corresponde), el tema es que solo hay 2 forms implicados, y en mi caso hay 3. Por ejemplo le agregue otro form a tu proyecto (form2.vb) y tiene un boton que llama al form form1.vb que contiene el Listview y un boton que llama a consulta_cliente.vb al apretar el boton de consulta_cliente.vb agrega automaticamente un nuevo item al Listview del form1.vb. Pero al hacer esto de esta manera no funciona para que agrege el nuevo item al Listview.
No se si me explique bien jejeje

Mi caso es similar:
Tengo el winform menu_facturas.vb este tiene el boton "Nueva Factura" al apretar abre el winform nueva_factura.vb en este tengo el Listview. Ademas nueva_factura.vb tiene un boton "Nueva Linea Producto" que abre un winform nueva_linea_producto.vb desde este winform agrego el producto al Listview de nueva factura. Y bueno de la manera que me decias no me funciona (En este caso).

Espero me puedas ayudar con esto Muchas gracias.

[klaudio83]

Que alguien me ayude Porfavor.

[klaudio83]

Si alguien tiene una idea que me pueda cooperar para solucionar esta duda porfavor que me me ayude. Muchas Gracias

[klaudio83]

Ayuda porfavor!
Muchas Gracias

[eperedo]

Hola, bueno lo hice con 2 formularios, pero la idea es la misma con 3, 10 o 1000.
A menos que no te haya entendido bien lo que deseas, mira este ejemplo con 3 formularios, a ver si te da una idea.

http://rapidshare.com/files/31441304...forms.zip.html

Saludos

[klaudio83]

Hola eperedo, primero que todo gracias por responder y darte el tiempo.
Mira sabes compile el archivo que subiste el ultimo y me funciono correctamente como quiero. El tema es que al hacerlo de la misma manera en mi proyecto no me funciono, la verdad nose que pasa.

y entonces cree un proyecto nuevo para hacer los mismo que tu y de la misma manera, solo implementando esto para que cargara el listview, y tampoco me funciono
Yo no se si el rpoblemasera que dond yo estoy trabajando en visual studio 2008 o por que instale el devExpress o tal vez no tengo activada o desabilitada alguna propiedad del listview o del los winforms, nose que pasa la verdad ya me tiene hasta la coronilla esto llevo mas de una semana con el mismo problema, disculpa que te cuente esto pero ya me esta superando este problema.

Mira subi el ultimo proyecto del que te hablaba, si puedes revisalo y dime en que me equivoco, porfavor
Muchas Gracias por la ayuda
http://www.megaupload.com/?d=8P0UQ5M0

[klaudio83]

Mejor te dejo el codigo aqui mismo para que lo veas.

form1

Código vb.net:

Public Class Form1
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim f2 As New Form2()
        f2.ShowDialog()
    End Sub
End Class
 

form2

Código vb.net:

Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f3 As New Form3()
        f3.ShowDialog()
    End Sub
End Class
 

form3

Código vb.net:

Public Class Form3
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim item As ListViewItem
        item = New ListViewItem(txtrut.Text)
        item.SubItems.Add(txtnombre.Text)
        item.SubItems.Add(txtapellido.Text)
 
        My.Forms.Form2.ListView1.Items.Add(item)
      End Sub
End Class
 

Asi estoy intentando cargar el Listview del form2, pero no pasa nada, nose si talvez sera que me falta alguna propiedad del listview(ya esta con vista "details") o algo que me falta, la verdad nose que pueda ser.

Espero me ayudes, ya se me esta acabando la paciencia con esto.
Muchas gracias

[eperedo]

Ahhh en el 2do formulario está el listview... te había entendido mal entonces XD
Al inicio estás instanciando el formulario donde está el listview por eso no se visualizan los nuevos elementos al usar la clase My

Para solucionarlo simplemente cambia la primera llamada de formulario:

Código vb.net:

Public Class Form1
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
'Antes
'        Dim f2 As New Form2()
'        f2.ShowDialog()
'AHORA
My.Forms.f2.ShowDialog()
    End Sub
End Class
 

Lo demás sigue igual. Sorry que no comprendía en que formulario estaba el listview, con esto debería trabajar como tu deseas. Cualquier duda no desesperes, mayor será la satisfacción cuando termines tu sistema.

[klaudio83]

Excelente!.
Muchas Gracias Eperedo, de verdad muchas gracias.
Te ganaste todos mis respetos.
Gracias por la ayuda y las palabras de aliento

[eperedo]

No te preocupes, todos pasamos dolores de cabeza con algún código...

Saludos.