cara estou fazendo assim:

 

Dim i As Integer
       
        For i = 0 To lstcodigopedido.ListCount - 1
        If rs!situacao Then 'se o campo_situacao = True
            lstcodigopedido.Selected(i) = True
        Else
            lstcodigopedido.Selected(i) = False
        End If
        Next
        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

 

ele continua trazendo os  que estão ticados no banco, mais no list não fica ticados.

 

 

por favor, corrija o que tiver errado.

 

obrigado.

 

 

fiz dessa maneira:

For i = 0 To lstcodigopedido.ListCount - 1
        If rs!situacao Then 'se o campo_situacao = True
            lstcodigopedido.Selected(i) = True
        Else
            lstcodigopedido.Selected(i) = False
        End If
        Next
        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

cara, veja o que está acontecendo.

pus o código que vc me passou, porém eu tirei - 1 do listcount. só que acontece um pequeno problema.

estou fazendo essa sql:

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, "

resto da instrução

 

sql = sql & "AND itens_pedido2.situacao=true"

 

só que quando eu mando trazer os códigos de produto ele me traz todos os códigos do produto dentro do listbox sem ticar (não selecioandos). só que ele traz ainda a palavra true ticado (selecionado).

Isso acontece, porque no meu sql estou mandando trazer o campo situacao. e porque eu estou chamando no for esse linha:

lstcodigopedido.AddItem rs("situacao")

 

agora, se eu tirar a linha que chama o campo situacao do sql, ele me traz os que estão ticados no banco e no lisbox continua sem ticar(selecionado).

e outra coisa se ele traz como true o primeiro código, ele teria que trazer os outros que estão ticado no banco como true também no listbox e ticados.

 

como eu faço para que isso funcione?

me ajude, por favor. Tá difícil.

 

valeu

 

 

 

 

Ei se quiser ajuda....abra seu msn....ja te adicionei aqui.

 

sem mais,