none
UN BOTON PARA BUSCAR

    Pregunta

  • buenas tardes amigos me pueden ayudar yo tengo un formulario para una factura tengo para agregar los datos del cliente y los datos del producto quiero que para agregar un cliente de click en un boton y me abra otro formulario donde esten todos los datos guardados del cliente y de doble clic y se me aparescan los datos que seleccione en el formulario factura en los campos del cliente lo mismo quiero con el del producto

    AYUDENME PORFAVOR LO NECESITO ya tengo que presentar en mi colegio ASI COMO ESTA EN ESTE VIDEO   

    https://www.youtube.com/watch?v=P391n4jjuuU&feature=youtu.be


    martes, 4 de abril de 2017 23:35

Respuestas

  • Ok Suponiendo que tu formulario se llama Factura entonces el otro Form no se como se llama le diremos form2

    en el boton buscar que tienes pones:

    buscar_cliente.show()

    y lo demas es asi:

    Esto va en el datagridview del form2 le das doble click y eliges el evento CellMouseDoubleClick suponiendo que tu datagridview1 se llame dgvCliente

    Private Sub dgvCliente_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvCliente.CellMouseDoubleClick
     If e.RowIndex < 0 Then Exit Sub
     Dim row As DataGridViewRow = CType(sender, DataGridView).CurrentRow
     Factura.txtCi_cliente.Text = dgvCliente.Item(0, e.RowIndex).Value
     Factura.txtNombre.Text = dgvCliente.Item(1, e.RowIndex).Value
     Factura.txtDireccion.Text = dgvCliente.Item(2, e.RowIndex).Value
     Factura.txtTelefono.Text = dgvCliente.Item(3, e.RowIndex).Value
     Factura.txtFax.Text = dgvCliente.Item(4, e.RowIndex).Value
     Factura.txtEmail.Text = dgvCliente.Item(5, e.RowIndex).Value
     Me.Close()
     End Sub
    Sera asi claro que antes tienes que tener cargado los datos de la tabla en el evento Load por lo visto ya lo tienes cargandos por bindingsource



    miércoles, 5 de abril de 2017 1:43
  • Hola anthony lenyn,

    Formulario 1:

       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Form2.Show()
        End Sub

    Formulario 2:

    Public Class Form2 Public Class entidad Private nombre As String Public Property _nombre() As String Get Return nombre End Get Set(ByVal value As String) nombre = value End Set End Property Private edad As Integer Public Property _edad() As Integer Get Return edad End Get Set(ByVal value As Integer) edad = value End Set End Property End Class Public texto As String Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim enty1 As entidad = New entidad() Dim enty2 As entidad = New entidad() Dim enty3 As entidad = New entidad() Dim enty4 As entidad = New entidad() Dim enty5 As entidad = New entidad() Dim lista As List(Of entidad) = New List(Of entidad) enty1._nombre = "brayan" enty1._edad = 10 enty2._nombre = "eeeeeeee" enty2._edad = 10 enty3._nombre = "xxxxxx" enty3._edad = 10 enty4._nombre = "rawqeqeul" enty4._edad = 10 enty5._nombre = "aaaaaaaa" enty5._edad = 10 lista.Add(enty1) lista.Add(enty2) lista.Add(enty3) lista.Add(enty4) lista.Add(enty5) DataGridView1.DataSource = lista End Sub Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick Try Form1.TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString() Me.Close() Catch ex As Exception End Try End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub End Class

    Mas no puedo ayudarte, pon de tu esfuerzo es una tarea.. reemplaza valores, nombres de formularios. Piensa, de lo contrario no serás un buen desarrollador

    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.


    miércoles, 5 de abril de 2017 1:22

Todas las respuestas

  • Hola anthony lenyn

    En el foro ya hicieron una consulta parecida, este es un claro ejemplo, aprovéchalo Datos entre formularios, ahí dentro tb encontrarás links de ayuda.

    Saludos.


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

    miércoles, 5 de abril de 2017 0:31
  • pero lo que quiero es cuando se ingresa a la factura le aparecen los campos en blanco y alado tiene un boton para buscar al cliente o al producto y se le abre otro formulario donde estan guardados los datos que ingreso y da doble click y se cierra ese formulario y los datos que el dio doble click ya le aparesen en los campos de la factura

    eso es lo que yo quiero ayudeme porfavor

    miércoles, 5 de abril de 2017 0:45
  • Esto es algo como enlazar datagridview a controles dices que deseas buscar el cliente seleccionas y llenas los campos de igual forma para el producto. 

    Bueno eso tendrias que programar el datagridview en el evento cellmouseclick o cellmousedobleclick al dar click este se cierra y te envia los datos al otro formulario. 

    miércoles, 5 de abril de 2017 0:59
  • y usted  sabe cual es esa programacion porque le intento y no me sale

    ayudeme porfavor

    miércoles, 5 de abril de 2017 1:11
  • Por ejemplo tiene el boton para buscar el cliente entonces al boton le dices:

    Private Sub BCliente_Click(sender As Object, e As EventArgs) Handles BCliente.Click
     
      BuscarCliente.Show()
     
     End Sub

    Donde mi boton se llama BCliente el que buscara al cliente.

    Entonces esto hara que cargue el otro formulario donde mostrara la grilla con los clientes no se que campos vas a trasladar pero Supongamos que tengas Nombre_Cliente

    En el otro Formulario ya debes tener los datos cargados entonces al seleccionar dando doble click la fila harias esto:

    Private Sub dgvCliente_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvCliente.CellMouseDoubleClick
     If e.RowIndex < 0 Then Exit Sub
     Dim row As DataGridViewRow = CType(sender, DataGridView).CurrentRow
     Factura.txtNombre_Cliente.Text = dgvCliente.Item(2, e.RowIndex).Value
     
     Me.Close()
     End Sub

    Desconozco tu tabla  pero el 2 viene hacer la posicion respecto a la columna que muestra en la datagridview de la misma forma lo haras para el producto. Suponiendo que 2 es Nombre_Cliente

    Si tu tabla es ID|Codigo_Cliente|Nombre_Cliente entonces es 0|1|2

    Si pudieras mostrarme una imagen de ambos formularios podria escribirte el codigo con tus datos.




    miércoles, 5 de abril de 2017 1:12
  • mi tabla es T_CLIENTES y los campos son ci_cliente nombre direccion  telefono fax email 

    me puede dar haciendo con eso porfavor o necesita algo mas

    miércoles, 5 de abril de 2017 1:18
  • Hola anthony lenyn,

    Formulario 1:

       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Form2.Show()
        End Sub

    Formulario 2:

    Public Class Form2 Public Class entidad Private nombre As String Public Property _nombre() As String Get Return nombre End Get Set(ByVal value As String) nombre = value End Set End Property Private edad As Integer Public Property _edad() As Integer Get Return edad End Get Set(ByVal value As Integer) edad = value End Set End Property End Class Public texto As String Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim enty1 As entidad = New entidad() Dim enty2 As entidad = New entidad() Dim enty3 As entidad = New entidad() Dim enty4 As entidad = New entidad() Dim enty5 As entidad = New entidad() Dim lista As List(Of entidad) = New List(Of entidad) enty1._nombre = "brayan" enty1._edad = 10 enty2._nombre = "eeeeeeee" enty2._edad = 10 enty3._nombre = "xxxxxx" enty3._edad = 10 enty4._nombre = "rawqeqeul" enty4._edad = 10 enty5._nombre = "aaaaaaaa" enty5._edad = 10 lista.Add(enty1) lista.Add(enty2) lista.Add(enty3) lista.Add(enty4) lista.Add(enty5) DataGridView1.DataSource = lista End Sub Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick Try Form1.TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString() Me.Close() Catch ex As Exception End Try End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub End Class

    Mas no puedo ayudarte, pon de tu esfuerzo es una tarea.. reemplaza valores, nombres de formularios. Piensa, de lo contrario no serás un buen desarrollador

    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.


    miércoles, 5 de abril de 2017 1:22

  • HAY ESTA JAVIER ROCCO

    miércoles, 5 de abril de 2017 1:30
  • Ok Suponiendo que tu formulario se llama Factura entonces el otro Form no se como se llama le diremos form2

    en el boton buscar que tienes pones:

    buscar_cliente.show()

    y lo demas es asi:

    Esto va en el datagridview del form2 le das doble click y eliges el evento CellMouseDoubleClick suponiendo que tu datagridview1 se llame dgvCliente

    Private Sub dgvCliente_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvCliente.CellMouseDoubleClick
     If e.RowIndex < 0 Then Exit Sub
     Dim row As DataGridViewRow = CType(sender, DataGridView).CurrentRow
     Factura.txtCi_cliente.Text = dgvCliente.Item(0, e.RowIndex).Value
     Factura.txtNombre.Text = dgvCliente.Item(1, e.RowIndex).Value
     Factura.txtDireccion.Text = dgvCliente.Item(2, e.RowIndex).Value
     Factura.txtTelefono.Text = dgvCliente.Item(3, e.RowIndex).Value
     Factura.txtFax.Text = dgvCliente.Item(4, e.RowIndex).Value
     Factura.txtEmail.Text = dgvCliente.Item(5, e.RowIndex).Value
     Me.Close()
     End Sub
    Sera asi claro que antes tienes que tener cargado los datos de la tabla en el evento Load por lo visto ya lo tienes cargandos por bindingsource



    miércoles, 5 de abril de 2017 1:43