Cargar Datagridview con datos de busqueda desde otro winform

[klaudio83]

Holas espero me puedan ayudar, Estoy trabajando en el Visual Studio 2008 utiliazando vb.net y SQL server 2005.
Explico la situacion primeramente:

Tengo un winform(inicio.vb) que tiene la opcion isMdi container habilitada,

esta tiene un menu con un boton con la opcion "Clientes",

al apretar este boton se abre otro Winform(menu_clientes.vb),

menu_clientes.vb tiene un DataGridView, me muestra todos los clientes que ya se encuentran registrados, esto lo hace al abrir menu_clientes.vb

menu_clientes.vb tiene un ToolStrip, en este ToolStrip tengo un boton(Buscar Cliente) que abre otro winform(consulta_cliente.vb)

consulta_cliente tiene un ComboBox donde se selecciona la opcion de busqueda y un TextBox donde ingreso el dato a buscar.

Al presionar Enter se deberia cargar o actualizar el Datagridview con los datos asociados a la busqueda realizada.
El problema es que precisamente que no hace lo que quiero.

Espero que alguien me pueda ayudar porfavor, Muchas Gracias
Dejo el codigo abajo por si es que hubiese omitido un detalle o algo.

Codigo: inicio.vb

Código vb.net:

Private Sub NavBarItem1_LinkClicked(ByVal sender As Object, ByVal e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles NavBarItem1.LinkClicked
        Dim menu_cli As New menu_clientes
        menu_cli.MdiParent = Me
        menu_cli.WindowState = FormWindowState.Maximized
        menu_cli.Show()
    End Sub
 

Codigo: menu_clientes.vb

Código vb.net:

Private Sub buscar_cliente_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buscar_cliente.Click
        Dim ConsultaCliente As New consulta_cliente
        ConsultaCliente.ShowDialog()
    End Sub
    
'DE ESTA MANERA CARGO EL DATAGRIDVIEW CON LOS CLIENTES ASOCIADOS A LA BUSQUEDA QUE SE REALIZO
    Public Sub RecargarGrilla(ByVal valor As String, ByVal opcion As String)
        Dim conexion As New SqlConnection(cadena)
        Dim MiDataSet As New DataSet
        Dim MiAdapter As SqlDataAdapter
 
        If opcion = "Rut" Then
            MiAdapter = New SqlDataAdapter("SELECT cod_cli AS Codigo, rut_cli AS Rut, nombre_cli AS Nombre, fijo_cli AS Telefono, movil_cli As Celular, email_cli AS Mail FROM cliente WHERE rut_cli LIKE '%" & valor & "%'", conexion)
            MiAdapter.Fill(MiDataSet)
            DataGridView1.DataSource = MiDataSet.Tables(0)           
        End If
 
        If opcion = "Nombre" Then
                MiAdapter = New SqlDataAdapter("SELECT cod_cli AS Codigo, rut_cli AS Rut, nombre_cli AS Nombre, fijo_cli AS Telefono, movil_cli As Celular, email_cli AS Mail FROM cliente WHERE nombre_cli LIKE '%" & valor & "%'", conexion)
                MiAdapter.Fill(MiDataSet)
                DataGridView1.DataSource = MiDataSet.Tables(0)
        End If
    End Sub
 

Codigo: consulta_cliente.vb

Código vb.net:

Dim OpcionRut As String = "Rut"
    Dim OpcionNombre As String = "Nombre"
    
    Private Sub txBusqueda_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txBusqueda.KeyDown
     If e.KeyCode = Keys.Enter Then
            e.Handled = True
 
            If String.IsNullOrEmpty(txOpcion.Text) Then
                ep.SetError(txOpcion, "Ingrese Opcion de Busqueda")
                'MsgBox("Ingrese Rut")
                Exit Sub
            End If
            ep.Clear()
 
            If String.IsNullOrEmpty(txBusqueda.Text) Then
                ep.SetError(txBusqueda, "Ingrese Dato a Buscar")
                Exit Sub
            End If
            ep.Clear()
 
            'BUSQUEDA POR RUT
            If txOpcion.Text = OpcionRut Then
                'AQUI LLAMO A UNA FUNCION SIMILAR A ListarDatos()
                My.Forms.menu_clientes.RecargarGrilla(txBusqueda.Text, txOpcion.Text)
                Me.Close()               
            End If
 
            'BUSQUEDA POR NOMBRE
            If txOpcion.Text = OpcionNombre Then
                Me.Close()
                My.Forms.menu_clientes.RecargarGrilla(txBusqueda.Text, txOpcion.Text)
            End If          
        End If
    End Sub
 

[eperedo]

Podrías hacer la llamada al método RecargaGrilla luego del ShowDialog()

Código vb.net:

Dim ConsultaCliente As New consulta_cliente
ConsultaCliente.ShowDialog()
RecargarGrilla(ConsultaCliente.txBusqueda.Text, ConsultaCliente.txOpcion.Text)
 

Y en el evento KeyDown sólo cierras el formulario

Código vb.net:

'BUSQUEDA POR RUT
            If txOpcion.Text = OpcionRut Then
                Me.Close()               
            End If
 
            'BUSQUEDA POR NOMBRE
            If txOpcion.Text = OpcionNombre Then
                Me.Close()
            End If
 

Espero te de una idea

[klaudio83]

Excelente. te pasaste! Muchas pero muchas gracias. me funciono perfecto!

Pero sabes quize utilizar lo mismo en otro winform que tengo, mira te explico:

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 puedas ayudar con esto, Muchas gracias por la respuesta anterior y por responder siempre tan buena onda.

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