Agrupar usando o LISTBOX

[Rgsilva]

Olá pessoal

Estou querendo agrupar o CODIGOMATERIAL da consulta usando os dados exibidos nos 3 LISTBOX abaixo, mas ele se repete cada vez que o CODIGOMODELOP muda ... como faço para resolver este problema ?

For x = LSTPLANO.ListCount - 1 To 0 Step -1

For z = LSTPEDIDO.ListCount - 1 To 0 Step -1

For f = LSTCODIGOMODELOP.ListCount - 1 To 0 Step -1

Set BASE = OpenDatabase(App.Path & "\DADOS.mdb")

Set TABELA = BASE.OpenRecordset("SELECT DISTINCT CODIGOMATERIAL FROM TBMAT_PEDIDO WHERE CODIGOMODELOP=" & LSTCODIGOMODELOP.List(f) & "AND PEDIDO=" & LSTPEDIDO.List(z) & "AND PLANO=" & LSTPLANO.List(x) & "")

Do While Not TABELA.Eof

LSTCODIGOMATERIAL.AddItem TABELA!CODIGOMATERIAL

TABELA.MoveNext

Loop

Next f

Next z

Next x

********************* RESULTADO DA CONSULTA ACIMA ********************

LSTPLANO_________LSTPEDIDO___________LSTCODIGOMODELOP__________LSTCODIGOMATERIAL

____1 ________________2______________________1010______________________001

_____________________________________________1122______________________001

Editado Março 15, 2011 por Rgsilva

[kuroi]

adicione a linha LSTCODIGOMATERIAL.Clear antes de abrir o while.

[Rgsilva]

adicione a linha LSTCODIGOMATERIAL.Clear antes de abrir o while.

tentei colocar o clear, mas ai o lstcodigomaterial não mostra nada ... e sem o clear ele exibe duplicado ... como resolver ?

[kuroi]

então, mas essa linha do clear tem q ser antes de Do While Not TABELA.Eof

[Rgsilva]

mesmo colocando o clear antes do Do While Not TABELA.Eof não resolveu, pois o lstcodigomaterial não lista nada ... eu já pensei em deixar a consulta sql listar os resultados duplicados e depois faria um outro filtro (ELIMINANDO OS TEXTOS DUPLICADOS NO LSTCODIGOMATERIAL) ... são 2 trabalhos mas tambem não sei fazer esse filtro ... :( help

[Matheus-vb6]

lstcodigomaterial.clear
For x = LSTPLANO.ListCount - 1 To 0 Step -1
For z = LSTPEDIDO.ListCount - 1 To 0 Step -1
For f = LSTCODIGOMODELOP.ListCount - 1 To 0 Step -1

Set BASE = OpenDatabase(App.Path & "\DADOS.mdb")
Set TABELA = BASE.OpenRecordset("SELECT DISTINCT CODIGOMATERIAL FROM TBMAT_PEDIDO WHERE CODIGOMODELOP=" & LSTCODIGOMODELOP.List(f) & "AND PEDIDO=" & LSTPEDIDO.List(z) & "AND PLANO=" & LSTPLANO.List(x) & "")

Do While Not TABELA.Eof
LSTCODIGOMATERIAL.AddItem TABELA!CODIGOMATERIAL
TABELA.MoveNext
Loop

Next f
Next z
Next x

Assim também não da?

[kuroi]

verdade, o clear devia estar antes de comecar o for, veja como passou o matheus q agora deve funcionar.

fora isso, a linha q abre o banco tb podia estar antes do for.