textbox - listview

Iniciado por dark08, 12 Junio 2012, 04:46 AM

0 Miembros y 1 Visitante están viendo este tema.

dark08

alguien sabe como solucionar esto, lo que pasa es que quiero agregar desde el textboxcantidad la cantidad al listview pero no funciona, recorro mi listview pero no me inserta el dato dejo mi codigo...



For i = 0 To Form1.lsvProductos.Items.Count - 1
                    If Form1.lsvProductos.Items(i).SubItems(1).Text = nombre Then

                        'cant = Form1.lsvProductos.Items(i).SubItems(2).Text
                        cant = Form1.txtcantidad.Text.ToString
                        Form1.lsvProductos.Items(i).SubItems(2).Text = cant 'aqui le digo que en el subitem 2 ponga la cant que es el txtcantidad
                        subtotal = cant * costo
                        Form1.lsvProductos.Items(i).SubItems(4).Text = subtotal
                        Exit For
                        'b = True
                    End If
                Next

                'If b = False Then
                If (i = Form1.lsvProductos.Items.Count) Then
                    Form1.lsvProductos.Items.Add(Form1.lsvProductos.Items.Count + 1)
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(nombre)
                    Form1.lsvProductos.Items.SubItems.Add(Form1.txtcantidad.Text) ' aqui se supone que lo debo de agregar pero no lo hace
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(costo)
                    subtotal = 1 * costo
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(subtotal)
                End If

dark08

SOLUCIONADO!!!, pongo el codigo amigos, por si alguien lo llegase a necesitar. ;D

Aparte agrege otros dos textbox, que si se podran dar cuenta son archivo y descripcion
saludos

For i = 0 To Form1.lsvProductos.Items.Count - 1
                    If Form1.lsvProductos.Items(i).SubItems(1).Text = nombre Then
                        cant = Form1.lsvProductos.Items(i).SubItems(2).Text
                        cant = cant + Form1.TextBox1.Text.ToString
                        Form1.lsvProductos.Items(i).SubItems(2).Text = cant.ToString
                        subtotal = cant.ToString * costo
                        Form1.lsvProductos.Items(i).SubItems(4).Text = subtotal

                        descripcion = Form1.lsvProductos.Items(i).SubItems(6).Text
                        Form1.lsvProductos.Items(i).SubItems(6).Text = descripcion.ToString

                        archivo = Form1.lsvProductos.Items(i).SubItems(7).Text
                        Form1.lsvProductos.Items(i).SubItems(6).Text = archivo



                        Exit For
                        'b = True
                    End If
                Next

                'If b = False Then
                If (i = Form1.lsvProductos.Items.Count) Then
                    Form1.lsvProductos.Items.Add(Form1.lsvProductos.Items.Count + 1)
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(nombre)
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(Form1.TextBox1.Text.ToString)
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(costo)
                    subtotal = Form1.TextBox1.Text.ToString * costo
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(subtotal)

                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(Form1.descriciontexbox.Text.ToString)
                    Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(Form1.archivotextbox.Text.ToString)
                End If