Ir al contenido


Foto

Manejo dataGridview .net


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 duz

duz

    Newbie

  • Miembros
  • Pip
  • 9 mensajes

Escrito 26 enero 2013 - 12:51

Saludos Amigos, he seguido los tutoriales de TAVO-KUN en .NET, que la verdad están muy buenos, en el proyecto del sistema de facturación  a la hora de agregar datos al grid todo bien, quise hacer que me reconozca si un articulo esta en el grid y que me le sume a la cantidad 1, y que no me repita un articulo en el grid, implemente el siguiente codigo pero no me esta funcionando en algo, les agradezco si me pudieran colaborar

Private Sub cmdAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAgregar.Click
        txtCantidad.Text = 1
        For Each busqueda_producto As producto In col_producto
            If (cmbProducto.Text = busqueda_producto.prod_codigo) Then

             
                If cmbProducto.SelectedIndex <> -1 Then
                    ' Buscamos en la columna si existe alguna celda
                    ' con igual nombre.
                    '
                    'Dim value As String = cmbProducto.SelectedValue.ToString
                    Dim value As String = cmbProducto.Text

                    For Each row As DataGridViewRow In DataGridView1.Rows

                        If row.Cells(0).Value Is Nothing Then Exit For

                        If CStr(row.Cells(0).Value).ToLower = value.ToLower Then
                            row.Cells(2).Value = (row.Cells(2).Value + 1)
                            'DirectCast(DataGridView1.DataSource, DataTable).Rows(2)("columna") = DataGridView1.Row(2)
                            Exit For
                        End If

                    Next

                End If
               
                With DataGridView1
                    .Rows.Add()
                    .Item(0, i).Value = busqueda_producto.prod_codigo
                    .Item(1, i).Value = busqueda_producto.prod_nombre
                    .Item(2, i).Value = txtCantidad.Text
                    .Item(3, i).Value = (txtCantidad.Text * busqueda_producto.prod_valor)

                    Dim det_fac As New detalle_factura(num_factura, busqueda_producto.prod_codigo, txtCantidad.Text, (txtCantidad.Text * busqueda_producto.prod_valor))
                    col_detalle_factura.Add(det_fac)

                End With
   


                i += 1 'i=0+1
            End If
        Next
    End Sub


Saludos y de ante mano gracias por la colaboracion..
  • 0