LISTVIEW2.LISTITEMS I , ALTERAR INDEX

USUARIO.EXCLUIDOS 01/04/2005 08:27:31
#76094
No meu código
While subramos.EOF = False

Set item = Me.ListView2.ListItems.Add(, , subramos.DescricaoSubSegmento)
subramos.MoveNext

Wend

faço a inclusão de todos os produtos, depois qdo quero saber determinado item, simplesmente faço.

ListView2.ListItems(i).text

onde i começa com 1 e vai até a total inserido.

Como faço para qdo eu fazer a inclusão no while, ele começar o indice com o valor 101 em vez de 1 ?
USUARIO.EXCLUIDOS 01/04/2005 08:39:11
#76097
Se os REGISTROS estiverem organizados pelo código... VOCÃÅ  pode dar um FIND...e posicionar o cursos no registro 101... e depois vem o WHILE...
ou pode ser assim

dim inicio as integer
dim fim as integer
inicio = 101
fim = 200
Subramos.MoveFirst
While subramos.EOF = False 

If subramos![codigo] >= inicio and subramos![codigo] <= fim then
    
    Set item = Me.ListView2.ListItems.Add(, , subramos.DescricaoSubSegmento) 
    subramos.MoveNext 
End if

Wend


Até mais...
Dúvida Sanada, Tópico Encerrado!
Tópico encerrado , respostas não são mais permitidas
Voltar