Prezado amigo,
Me ajudem por favor...
Pois quero criar uma linha adicional dentro do listview, conforme o exemplo abaixo:
Exemplo
--------------------
Dim LVi As ListItem
LV.ListItems.Clear
For I = 1 To 20
Set LVi = LV.ListItems.Add(, , "teste1")
LVi.SubItems(1) = "teste1"
LVi.SubItems(2) = 1
if I=10 then
Set LVi = LV.ListItems.Add(, , "Sub-Total")
endif
Next
Set LVi = LV.ListItems.Add(, , "Total Geral")
Conclusão
---------------
Se eu colocar uma pausa qualquer, msgbox (""), etc... ele mostra o sub-total, conforme I=10, mas quando mostra o total geral, isto é, após o next, ele apagar ou sobrepoem o subtotal (I=10); como resolver este problema? como fixar o sub-total e total geral dentro do listview?
Obrigado.
Joaquim
