Tópico anterior Próximo tópico Novo tópico
VB / VBA
#18023 - 01/04/2004 13:03:11 | ||||
![]() PROPAR SAO PAULO Cadast. em:Março/2004 ![]() |
EU ESTOU USANDO O LIST PARA MOSTRAR ALGUNS VALORES MAIS ESTOU COM UM PROBLEMA EU TENHO QUE FAZER UMA CONSULTA
SE PAGAMENTO FOR DE VAZIO ENTÃO ELE DESTACA A LINHA, MUNDADO DE COR A LINHA , FICA VERMELHA E AS OUTRA CONTINUAM PRETA , CADA VEZ QUE O PAGAMENTO FOR PREENCHIDO A LINHA MUDA DE COR VERMELHA O MEU CODIGO ESTA ASSIM: 'Evento Click() do botão de listagem no vídeo Private Sub BtnListarVideo_Click() Dim Saldo As Double Saldo = 0 LstMov.Clear RegCon.Index = "IndiceData" RegCon.MoveFirst Do Until RegCon.EOF RegCon.Edit Saldo = Saldo + RegCon("Entrada") - RegCon("Saida") If RegCon("Data") = InvData(TxtDataInicial.Text) Then LstMov.AddItem RegCon("Sequencia") + " " + InvData(RegCon("Data")) + " " + _ " " + Alinha(Mid(RegCon("Descricao"), 1, 10), 10, "ESQ") + " " + InvData(RegCon("Vencimento")) + " " + " " + InvData(RegCon("Pagamento")) + _ Alinha(Format(RegCon("Entrada"), "#,###,##0.00"), 12, "DIR") + _ Alinha(Format(RegCon("Saida"), "#,###,##0.00"), 12, "DIR") + _ Alinha(Format(Saldo, "#,###,##0.00"), 12, "DIR") End If RegCon.MoveNext Loop End Sub alexandre |
|||
Resposta escolhida #18024 - 01/04/2004 13:07:31 | ||||
![]() USUARIO.EXCLUIDOS Cadast. em: |
Na listbox não tem como modificar a cor da linha
Mas se você alterar para uma TREEVIEW tu consegue acessar cada NODE e definir seu BACKCOLOR |
|||
#18043 - 01/04/2004 13:39:01 | ||||
![]() USUARIO.EXCLUIDOS Cadast. em: |
Se quiser modificar para TREEVIEW eu te ajudo na modificação
Mas a TREEVIEW faz parte de uma OCX externa e a mesma deverá acompanhar o executavek |
|||
Tópico anterior Próximo tópico Novo tópico