Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Mayo 04, 2012, 03:33:36 pm
-
Hola compañeros tengo un problemita con el listview, tengo 2 ventanas uno donde muestro los artículos a vender en otra ventana la lista de articulos que tengo. Lo que quiero hacer es por ejemplo si ya anote una Coca Cola y si vuelvo a agregar a la lista que me sume la cantidad, nunca tuve problemas si busco por la primera columna pero en este caso esta en la 2da columna los datos.
El codigo que tengo es igual al que esta aca http://www.recursosvisualbasic.com.ar/htm/listado-api/97-buscar-en-listview.htm (http://www.recursosvisualbasic.com.ar/htm/listado-api/97-buscar-en-listview.htm) pero modificado segun mi proyecto. El error que me da es si inserto 1 ves 1 articulo y vuelvo a insertar el mismo articulo me vuelve a insertar como otro registro no me suma. Pero si inserto 2 articulos diferente y vuelvo a insertar 1 de los articulos si lo hace bien.
Aca dejo me proyecto si pueden darme una manito.
http://www.2shared.com/file/cBbaKEZO/buscar_en_lv.html (http://www.2shared.com/file/cBbaKEZO/buscar_en_lv.html)
-
hola amigo no deja descargar pide un numero de celular!
-
hola amigo no deja descargar pide un numero de celular!
Pero de todos modos ya resolví esta manera pero la otra forma me parecía que era mas elegante por que podías elegir en que columna buscar.
Este es mi code:
Sub AGREGAR_ARTICULO()
Dim ITMFound As ListItem
Set ITMFound = Form1.LVentas.FindItem(Form2.LArticulos.SelectedItem.SubItems(1), lvwSubItem, , lvwPartial)
If ITMFound Is Nothing Then
Set Lv = Form1.LVentas.ListItems.Add()
With Lv
.Text = "1"
.SubItems(1) = Form2.LArticulos.SelectedItem.SubItems(1)
.SubItems(2) = Form2.LArticulos.SelectedItem.SubItems(2)
.SubItems(3) = "0"
.SubItems(4) = "0"
.SubItems(5) = "0"
.SubItems(6) = "0"
End With
Form1.LVentas.ListItems(Form1.LVentas.ListItems.Count).Selected = True
Form1.LVentas.ListItems(Form1.LVentas.ListItems.Count).EnsureVisible
Else
For i = 1 To Form1.LVentas.ListItems.Count
If Form1.LVentas.ListItems(i).SubItems(1) = Form2.LArticulos.SelectedItem.SubItems(1) Then
Form1.LVentas.ListItems(i).Text = Val(Form1.LVentas.ListItems(i).Text) + 1
Form1.LVentas.ListItems(i).Selected = True
Form1.LVentas.ListItems(i).EnsureVisible
End If
Next i
End If
End Sub