none
MOSTRAR DETALLE DE UNA VENTA DE GRID A GRID RRS feed

  • Pregunta

  • Buenas noches tengo una consulta, como puedo hacer para capturar el valor de una columna en mi grid, para poder obtener un dato de una fila, y atravez de ella hacer una consulta para que me pueda demostrar un detallado de orden de compra, les dejo una imagen para que vean como es lo que quiero hacer.

    Tengo 2 Grid, en la cual en el grid2 me tiene que mostrar el detallado de venta, osea cada vez que seleccione una venta me muestre el detallado en el grid2

    lunes, 11 de enero de 2016 2:29

Respuestas

  •     Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                Dim da As New SqlDataAdapter("SELECT *   FROM cabeguia", cn)
                Dim dt As New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            Catch ex As Exception
                MsgBox("Verifique Información...", MsgBoxStyle.Information)
            End Try
        End Sub
    
        Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
            Dim da As New SqlDataAdapter("SELECT * FROM detallguia where idguia LIKE '%" & DataGridView1.CurrentRow.Cells(0).Value.ToString & "%'", cn)
            Dim dt As New DataTable
            da.Fill(dt)
            Me.DataGridView2.DataSource = dt
        End Sub

    Espero que sea de ayuda, gracias

    David Mayurí Rojas

    lunes, 11 de enero de 2016 4:23
  • Gracias. el unico cambio que hice fue ese, ya que estoy utilizando devexpress pero todo bien.

            Dim cn As String = "Data Source=server;Initial Catalog=data;Persist Security Info=True;User ID=sa;Password=+++++*"
            Dim da As New SqlDataAdapter("SELECT CantArticulo AS Cantidad, SerieArticulo AS Serie, DescArticulo AS Descripcion, PriceUnit AS Precio, PriceTotal AS Total FROM DetalleOrdenCompra WHERE OrdenCompraN=" & griddtgordencompra.GetFocusedRowCellDisplayText("Numero") & "", cn)
            Dim dt As New DataTable
            da.Fill(dt)
            Me.dtgdetalleorden.DataSource = dt

    lunes, 11 de enero de 2016 14:13

Todas las respuestas

  •     Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                Dim da As New SqlDataAdapter("SELECT *   FROM cabeguia", cn)
                Dim dt As New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            Catch ex As Exception
                MsgBox("Verifique Información...", MsgBoxStyle.Information)
            End Try
        End Sub
    
        Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
            Dim da As New SqlDataAdapter("SELECT * FROM detallguia where idguia LIKE '%" & DataGridView1.CurrentRow.Cells(0).Value.ToString & "%'", cn)
            Dim dt As New DataTable
            da.Fill(dt)
            Me.DataGridView2.DataSource = dt
        End Sub

    Espero que sea de ayuda, gracias

    David Mayurí Rojas

    lunes, 11 de enero de 2016 4:23
  • Gracias. el unico cambio que hice fue ese, ya que estoy utilizando devexpress pero todo bien.

            Dim cn As String = "Data Source=server;Initial Catalog=data;Persist Security Info=True;User ID=sa;Password=+++++*"
            Dim da As New SqlDataAdapter("SELECT CantArticulo AS Cantidad, SerieArticulo AS Serie, DescArticulo AS Descripcion, PriceUnit AS Precio, PriceTotal AS Total FROM DetalleOrdenCompra WHERE OrdenCompraN=" & griddtgordencompra.GetFocusedRowCellDisplayText("Numero") & "", cn)
            Dim dt As New DataTable
            da.Fill(dt)
            Me.dtgdetalleorden.DataSource = dt

    lunes, 11 de enero de 2016 14:13