ListView - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: ListView

Ricardo
não registrado

Postada em 27/01/2006 17:27 hs

Gostaria de saber com faço para carregar uma listview rapidamente

eu uso assim

Dim i as long

Do While Not RS.EOF

        listview.ListItems.Add = rs(0)
        i = listview.ListItems.Count
        listview.ListItems.subitem(1) = rs(1)

listview.ListItems.subitem(2) = rs(2)

listview.ListItems.subitem(3) = rs(3)

loop

o rs é do tamanho de 52000 registro

a alguma maneira de agilizar isso

grato Ricardo.

Tekki

UBERLÂNDIA
MG - BRASIL

Postada em 27/01/2006 20:24 hs

Teste este código...

Dim i As Long
Dim vTempoGasto As Variant

Dim Campo0 As Field, Campo1 As Field, Campo2 As Field, Campo3 As Field
Screen.MousePointer = vbHourglass

vTempoGasto = Timer

Set Campo0 = rs(0)

Set Campo1 = rs(1)

Set Campo2 = rs(2)

Set Campo3 = rs(3)

listview.Visible = False

Do While Not RS.EOF

        listview.ListItems.Add = Campo0
        i = listview.ListItems.Count
        listview.ListItems.subitem(1) = Campo1

listview.ListItems.subitem(2) = Campo2

listview.ListItems.subitem(3) = Campo3

rs.movenext

loop

listview.Visible = true

Jogando os valores dos campos em variáveis e mudando o visible para false.

Se der certo vai otimizar um pouco o código, não vai melhorar muito... :(

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site