HOLAS
CON LE SIGUIENTE CODIGO RECORRO LOS LISTBOX Y BUSCO DUPLICADOS Y SUMO CANTIDAD, PESO, VALOR.
EL ASUNTO ES QUE CON POCOS REGISTROS FUNCIONA, PERO CON MAS DE 100, NO.
PORFA SI ME PUEDEN AYUDAR
Código vb:
Ver originalFor i = 0 To (List1.ListCount) - 2
P = i
For Ñ = 0 To (List1.ListCount) - 2
If List1.List(i) <> List1.List(Ñ) And es = True Then ' agrega datos y elimina p
List1.ListIndex = P
List2.ListIndex = P
List5.ListIndex = P
List3.ListIndex = P
List4.ListIndex = P
cod = List1.Text
uni = uni + Round(List5.Text)
peso = peso + Round(List3.Text)
neto = neto + Round(List4.Text)
des = List2.Text
List1.RemoveItem P
List2.RemoveItem P
List5.RemoveItem P
List3.RemoveItem P
List4.RemoveItem P
List1.AddItem cod
List2.AddItem des
List3.AddItem peso
List4.AddItem neto
List5.AddItem uni
es = False
End If
If List1.List(i) = List1.List(Ñ) Then
List1.ListIndex = Ñ
If List1.ListIndex = i Then GoTo sig
List2.ListIndex = Ñ
List3.ListIndex = Ñ
List5.ListIndex = Ñ
List4.ListIndex = Ñ
uni = uni + Int(List5.Text)
peso = peso + Round(List3.Text)
neto = neto + Round(List4.Text)
List1.RemoveItem Ñ
List2.RemoveItem Ñ
List3.RemoveItem Ñ
List5.RemoveItem Ñ
List4.RemoveItem Ñ
es = True
End If
sig:
Next Ñ
Next i
muuuuuuuuuuuuuuuuuuchas graciassss!!!
