none
Consulta al cargar lector codigo barra

    Pregunta

  • buena tardes

    amigos programadores tengo una duda tengo un lector de codigo barra

     Private Sub txtbusqueda_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtbusqueda.KeyPress
    
            If e.KeyChar = ChrW(13) Then
    
                objentidade.Nombre = txtbusqueda.Text
                If buscar = 1 Then
                    txtbusqueda.MaxLength = 30
                    objentidade.opcion = 1
                    Dg_Proveedores.DataSource = objnegocio.BUSCAR_PRODUCTO(objentidade)
                End If
                txtbusqueda.Text = ""
                txtbusqueda.Focus()
            End If
    
        End Sub

    con este codigo logro hacer la busqueda de productos por codigo barra funciona 

    pero lo podria para hacer para cargar en una grillas los codigo que voy leyendo de cada productos sin que desaparescan de la grilla 

    ejemplo con el lector leo codigo barra papas fritas que cargue en la grilla y si leo otro codigo por ejemplo de cafe

    que lo valla cargando a la grilla para luego hacer una venta los productos cargados por el codigo de barra

    martes, 27 de diciembre de 2016 21:53

Respuestas

  • Analiza este pequeño código para agregar filas a un datagridview

    Public Class Form2
        Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
            Dim dt As New DataTable
            dt = TryCast(DataGridView1.DataSource, DataTable)
            Dim dr As DataRow = dt.NewRow
            dr("ID") = 2
            dr("DESCRIPCION") = "MANZANAS"
            dr("PRECIO") = 178.5
            dt.Rows.Add(dr)
        End Sub
    
        Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim dt As New DataTable
            dt.Columns.Add("ID", GetType(Int32))
            dt.Columns.Add("DESCRIPCION", GetType(String))
            dt.Columns.Add("PRECIO", GetType(Double))
            dt.Rows.Add(1, "PRODUCTO 1", 120.5)
            DataGridView1.DataSource = dt
        End Sub
    End Class


    Si la respuesta te fue útil vótala como tal,y si fue respuesta márcala. Solo dejo en el foro mis post si fueron útiles , de lo contrario y por mantener el orden los borro. Saludos. Lima-Perú.


    • Editado Augusto1982 martes, 27 de diciembre de 2016 22:24
    • Marcado como respuesta djnilo miércoles, 28 de diciembre de 2016 17:51
    martes, 27 de diciembre de 2016 22:23
  • djnilo,

    Es simple, puedes combinar el resultado del método BUSCAR_PRODUCTO() con el origen de datos vinculado a la grilla de datos, algo como:

    If buscar = 1 Then
    	txtbusqueda.MaxLength = 30
    	objentidade.opcion = 1
    
    	Dim dt = DirectCast(Dg_Proveedores.DataSource, DataTable)
    
    	If dt IsNot Nothing Then
    		dt.Merge(objnegocio.BUSCAR_PRODUCTO(objentidade), True)
    	Else
    		Dg_Proveedores.DataSource = objnegocio.BUSCAR_PRODUCTO(objentidade)
    	End If
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Propuesto como respuesta Joyce_ACModerator miércoles, 28 de diciembre de 2016 17:00
    • Marcado como respuesta djnilo miércoles, 28 de diciembre de 2016 17:50
    martes, 27 de diciembre de 2016 23:13

Todas las respuestas

  • Analiza este pequeño código para agregar filas a un datagridview

    Public Class Form2
        Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
            Dim dt As New DataTable
            dt = TryCast(DataGridView1.DataSource, DataTable)
            Dim dr As DataRow = dt.NewRow
            dr("ID") = 2
            dr("DESCRIPCION") = "MANZANAS"
            dr("PRECIO") = 178.5
            dt.Rows.Add(dr)
        End Sub
    
        Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim dt As New DataTable
            dt.Columns.Add("ID", GetType(Int32))
            dt.Columns.Add("DESCRIPCION", GetType(String))
            dt.Columns.Add("PRECIO", GetType(Double))
            dt.Rows.Add(1, "PRODUCTO 1", 120.5)
            DataGridView1.DataSource = dt
        End Sub
    End Class


    Si la respuesta te fue útil vótala como tal,y si fue respuesta márcala. Solo dejo en el foro mis post si fueron útiles , de lo contrario y por mantener el orden los borro. Saludos. Lima-Perú.


    • Editado Augusto1982 martes, 27 de diciembre de 2016 22:24
    • Marcado como respuesta djnilo miércoles, 28 de diciembre de 2016 17:51
    martes, 27 de diciembre de 2016 22:23
  • djnilo,

    Es simple, puedes combinar el resultado del método BUSCAR_PRODUCTO() con el origen de datos vinculado a la grilla de datos, algo como:

    If buscar = 1 Then
    	txtbusqueda.MaxLength = 30
    	objentidade.opcion = 1
    
    	Dim dt = DirectCast(Dg_Proveedores.DataSource, DataTable)
    
    	If dt IsNot Nothing Then
    		dt.Merge(objnegocio.BUSCAR_PRODUCTO(objentidade), True)
    	Else
    		Dg_Proveedores.DataSource = objnegocio.BUSCAR_PRODUCTO(objentidade)
    	End If
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Propuesto como respuesta Joyce_ACModerator miércoles, 28 de diciembre de 2016 17:00
    • Marcado como respuesta djnilo miércoles, 28 de diciembre de 2016 17:50
    martes, 27 de diciembre de 2016 23:13
  • gracias por responder Williams Morales

    excelente se agrace me salvaste 

    miércoles, 28 de diciembre de 2016 17:50
  • si funciona se agrace por tu tiempo agusto1982
    miércoles, 28 de diciembre de 2016 17:50