TRAZENDO COISA A MAIS NO LISTBOX.
pessoal me expliquem uma coisa.
em uma tebela do meu banco de dados, eu tenho um campo chamado situacao que está definido como Sim/Não. Assim dentro dele vai ficar um ckeckbox.
Em uma tela do meu sistema existe um listbox com checkbox. O que está acontecendo?
Quando eu digito o código do pedido e clico em consultar o sistema me traz todos os códigos de produto no listbox. Porém, ele traz no listbox os códigos de produto mais a palavra false junto com os códigos.
Porque acontece isso? Quer dizer eu sei porque ele vez false, porque não está selecionado o checkbox no campo situacao.
Mais eu quero saber como eu faço só para trazer os códigos de produto sem a palavra false junto com os códigos.
Como eu barro isso?
Como faço?
em uma tebela do meu banco de dados, eu tenho um campo chamado situacao que está definido como Sim/Não. Assim dentro dele vai ficar um ckeckbox.
Em uma tela do meu sistema existe um listbox com checkbox. O que está acontecendo?
Quando eu digito o código do pedido e clico em consultar o sistema me traz todos os códigos de produto no listbox. Porém, ele traz no listbox os códigos de produto mais a palavra false junto com os códigos.
Porque acontece isso? Quer dizer eu sei porque ele vez false, porque não está selecionado o checkbox no campo situacao.
Mais eu quero saber como eu faço só para trazer os códigos de produto sem a palavra false junto com os códigos.
Como eu barro isso?
Como faço?
Tente usar o IIF
IIF(CodigoPedido, True, False)
IIF(CodigoPedido, True, False)
por acaso tem uma instrução assim no evento de carregar?
Set Linha = ListView.ListItems.Add(,,rs!codigo & rs!situacao
Set Linha = ListView.ListItems.Add(,,rs!codigo & rs!situacao
Thiago, eu não estou usando listview.
estou usando listbox.
estou usando listbox.
Como está preenchendo o listbox? vc não está usando 8 listbox, está?
wcosta, não entendi
eu preencho o listboxc dessa forma:
Do While rs.EOF = False
lstcodigopedido.AddItem rs!codigo_produto --> é esse aqui.
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 acima teria que trazer só os códigos.
Do While rs.EOF = False
lstcodigopedido.AddItem rs!codigo_produto --> é esse aqui.
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 acima teria que trazer só os códigos.
A sintaxe está correta, provavelmente ele está salvando o True e o False no próprio banco de dados. Verifique o código que está usando para salvar os registros...
thiago, consegui.
inclusive, selecionei mais de um item no listbox e gravei no banco. sem configurar a propriedade multiselect.
já que muita gente disse que não tem como gravar vários items do listbox de uma só vez.
o código se quiserem:
Dim i As Integer
For i = 0 To lstcodigopedido.ListCount - 1
If lstcodigopedido.Selected(i) Then ' os q tiverem selecionados
sql = "update itens_pedido2 set desconto = '" & lstdesc.List(i) & _
"', qtde = " & CInt(lstqtdepedido.List(i)) & _
", valor = '" & lstpreco.List(i) & _
"', valor_bruto_i = " & CInt(lstvlrbruto.List(i)) & _
", valor_desconto_total_i = " & CInt(lstvlrdesctotal.List(i)) & _
", valor_liquido_i = " & CInt(lstvlrliq.List(i)) & _
", situacao = '" & lstcodigopedido.List(i) & _
"' where codigo_produto = " & CInt(lstcodigopedido.List(i)) & " "
db.Execute sql
End If
Next i
Exit Sub
MsgBox "Alteração feita com sucesso.", vbInformation, "Aviso:"
outra coisa:
como eu faço para trazer o item já selecionado no listbox exatamente como está no banco de dados?
inclusive, selecionei mais de um item no listbox e gravei no banco. sem configurar a propriedade multiselect.
já que muita gente disse que não tem como gravar vários items do listbox de uma só vez.
o código se quiserem:
Dim i As Integer
For i = 0 To lstcodigopedido.ListCount - 1
If lstcodigopedido.Selected(i) Then ' os q tiverem selecionados
sql = "update itens_pedido2 set desconto = '" & lstdesc.List(i) & _
"', qtde = " & CInt(lstqtdepedido.List(i)) & _
", valor = '" & lstpreco.List(i) & _
"', valor_bruto_i = " & CInt(lstvlrbruto.List(i)) & _
", valor_desconto_total_i = " & CInt(lstvlrdesctotal.List(i)) & _
", valor_liquido_i = " & CInt(lstvlrliq.List(i)) & _
", situacao = '" & lstcodigopedido.List(i) & _
"' where codigo_produto = " & CInt(lstcodigopedido.List(i)) & " "
db.Execute sql
End If
Next i
Exit Sub
MsgBox "Alteração feita com sucesso.", vbInformation, "Aviso:"
outra coisa:
como eu faço para trazer o item já selecionado no listbox exatamente como está no banco de dados?
Tópico encerrado , respostas não são mais permitidas