trazer registros selecionados no listbox

[rafa-martin 2]

pessoal no meu banco de dados eu tenho um campo chamado situacao. Que defini como tipo Sim/Não.porque?no sistema tem uma tela que quando eu digito o código de pedido aparece em um listbox todos os códigos de produto. Esse listbox é com chekbox.Só que no banco existem alguns registros no campo situacao que está com seus checkbox selecionados (ticados).E que eu quero, quando eu digitar o código de pedido e clicar em consultar deve trazer no listbox todos os códigos de produto que estão selecionados (ticados) assim como está no banco.como faço isso?

[Luizgrs 0]

O código que faz isso é o seguinte:

 

list1.selected(index) = true

[rafa-martin 2]

cara não está dando certo.estou percorrendo o list e depois trazendo dessa forma:Dim i As IntegerFor i = 0 to lstcodigopedido.ListCount - 1lstcodigopedido.selected(i) = true Do While rs.EOF = False 'lstcodigopedido.AddItem rs!situacao lstcodigopedido.AddItem rs!codigo_produto lstdesc.AddItem rs!descontoi lstqtdepedido.AddItem rs!qtdei lstpreco.AddItem rs!VALOR lstvlrbruto.AddItem rs!valor_bruto_i lstvlrdesctotal.AddItem rs!valor_desconto_total_i lstvlrliq.AddItem rs!valor_liquido_i rs.MoveNext Loopnão dá certo. Está travando.Corriija por favor o que estiver errado.

[rafa-martin 2]

sql = "SELECT pedido.codigo_pedido, " sql = sql & "pedido.cancelado, " sql = sql & "Pedido.cod_pedido_vendedor , " sql = sql & "Pedido.cod_cliente_dist, " sql = sql & "cadastrodistribuidor.cnpj_distribuidor, " sql = sql & "cadastrodistribuidor.razao_social as nome_distribuidor, " sql = sql & "cadastrofarmacia.cnpj_farmacia, " sql = sql & "cadastrofarmacia.razao_social, " sql = sql & "cadastrofarmacia.eqz, " sql = sql & "Brick.eqz, cadastrovendedor.nome, " sql = sql & "cadastrofarmacia.eqz, " sql = sql & "Pedido.apontador, Pedido.prazo, " sql = sql & "Pedido.tipo_cd, " sql = sql & "Pedido.eqz as eqz2, " sql = sql & "Pedido.cliente, " sql = sql & "Pedido.aprovacao, Pedido.obs, " sql = sql & "Pedido.qtde, Pedido.valor_total, " sql = sql & "Pedido.valor_bruto, " sql = sql & "Pedido.valor_desconto_total, " sql = sql & "Pedido.valor_liquido, " sql = sql & "Pedido.obs2, " sql = sql & "Pedido.Data2, itens_pedido2.codigo_produto, " sql = sql & "itens_pedido2.desconto as descontoi, " sql = sql & "itens_pedido2.qtde as qtdei, " sql = sql & "itens_pedido2.Valor, " 'sql = sql & "itens_pedido2.situacao, " sql = sql & "itens_pedido2.valor_bruto_i, " sql = sql & "itens_pedido2.valor_desconto_total_i, " sql = sql & "itens_pedido2.valor_liquido_i " sql = sql & "FROM (cadastrovendedor " sql = sql & "INNER JOIN (cadastrodistribuidor " sql = sql & "INNER JOIN ((brick " sql = sql & "INNER JOIN cadastrofarmacia " sql = sql & "ON brick.eqz = cadastrofarmacia.eqz) " sql = sql & "INNER JOIN pedido " sql = sql & "ON (cadastrofarmacia.codigo_farmacia = pedido.codigo_farmacia) " sql = sql & "AND (brick.eqz = pedido.eqz)) " sql = sql & "ON cadastrodistribuidor.codigo_distribuidor = pedido.codigo_distribuidor) " sql = sql & "ON (cadastrovendedor.codigo_vendedor = pedido.codigo_vendedor) " sql = sql & "AND (cadastrovendedor.codigo_vendedor = brick.codigo_vendedor)) " sql = sql & "INNER JOIN itens_pedido2 " sql = sql & "ON pedido.codigo_pedido = itens_pedido2.codigo_pedido " sql = sql & "WHERE (((pedido.codigo_pedido)= " & txtcodigo.Text & "))" sql = sql & "AND ((Tabela.situacao)=True))" Set rs = db.OpenRecordset(sql) Do While rs.EOF = False 'lstcodigopedido.AddItem rs!situacao lstcodigopedido.AddItem rs!codigo_produto lstdesc.AddItem rs!descontoi lstqtdepedido.AddItem rs!qtdei lstpreco.AddItem rs!VALOR lstvlrbruto.AddItem rs!valor_bruto_i lstvlrdesctotal.AddItem rs!valor_desconto_total_i lstvlrliq.AddItem rs!valor_liquido_i rs.MoveNext Loop com esse código eu estou até conseguindo trazer o itens que estão selecionado no banco. porém, dentro do listbox eles não estão selecionados (ticados).porque?me judem.

[Luizgrs 0]

ah tah

Faz assim:

 

x = 0Do While rs.EOF = False lstcodigopedido.AddItem ""lstcodigopedido.selecteditem(x) = rs!situacaolstcodigopedido.AddItem rs!codigo_produto lstdesc.AddItem rs!descontoi lstqtdepedido.AddItem rs!qtdei lstpreco.AddItem rs!VALOR lstvlrbruto.AddItem rs!valor_bruto_i lstvlrdesctotal.AddItem rs!valor_desconto_total_i lstvlrliq.AddItem rs!valor_liquido_i rs.MoveNext x = x + 1Loop

[rafa-martin 2]

pessoal já consegui.pra quem quiser:Do While rs.EOF = False lstcodigopedido.AddItem rs!codigo_produto 'CODIGO FEITO PARA TICAR A LISTBOX. '======================================================= If rs!situacao Then Dim intIndice As Integer intIndice = lstcodigopedido.ListCount - 1 lstcodigopedido.Selected(intIndice) = True End Ifrs.MoveNextLoop