DEIXAR CÓDIGO MAIS DINAMICO
pessoal, boa tarde, tem como fazer com que o código abaixo não tenha o [Ô][txt-color=#0000f0]For Next[/txt-color][Ô] e tenha
o mesmo efeito?
A minha ideia seria preencher o check do listview nessa linha:
Mas não consegui ver uma lógica para fazer isso.
Obrigada desde já a quem possa ajudar.
o mesmo efeito?
ConnectDB
rs.Open [Ô]select * from TBNomeTabela order by Ativo,Nome[Ô], db, 3, 3
Do Until rs.EOF
Set Item = lstTabela.ListItems.Add(, , rs!Codigo)
Item.SubItems(1) = rs(1)
Item.SubItems(2) = rs(2)
Item.SubItems(3) = VBA.Format(rs(3), [Ô]#,##0.00[Ô])
Item.SubItems(4) = VBA.Format(rs!taxa, [Ô]#,##0.00[Ô])
Item.SubItems(5) = rs!Observacoes
Item.SubItems(6) = [Ô][Ô] & rs!EntradaMinima
rs.MoveNext
Loop
rs.MoveFirst
Dim i As Integer
Do Until rs.EOF
For i = 1 To lstTabela.ListItems.Count
lstTabela.ListItems.Item(i).Checked = rs!Ativo
rs.MoveNext
Next
Loop
FechaBDA minha ideia seria preencher o check do listview nessa linha:
Set Item = lstTabela.ListItems.Add(, , rs!Codigo)Mas não consegui ver uma lógica para fazer isso.
Obrigada desde já a quem possa ajudar.
Fiz uma pequena alteração no seu código, mas não sei se é isso que precisa. Qualquer coisa, posta uma foto do ListView pra gente vê como que ela tá, só pra termos uma noção do que você realmente quer.
ConnectDB
rs.Open [Ô]select * from TBNomeTabela order by Ativo,Nome[Ô], db, 3, 3
Do Until rs.EOF
Set Item = lstTabela.ListItems.Add(, , rs!Codigo)
[txt-color=#e80000]Item.Checked = rs!Ativo[/txt-color]
Item.SubItems(1) = rs(1)
Item.SubItems(2) = rs(2)
Item.SubItems(3) = VBA.Format(rs(3), [Ô]#,##0.00[Ô])
Item.SubItems(4) = VBA.Format(rs!taxa, [Ô]#,##0.00[Ô])
Item.SubItems(5) = rs!Observacoes
Item.SubItems(6) = [Ô][Ô] & rs!EntradaMinima
rs.MoveNext
Loop
Jaba,
muito obrigada, foi meio obvio mas ando tão cansada ultimamente que
nem raciocinei direito.
muito obrigada, foi meio obvio mas ando tão cansada ultimamente que
nem raciocinei direito.
Tópico encerrado , respostas não são mais permitidas