CONSULTA NO LIST

USUARIO.EXCLUIDOS 01/04/2004 10:21:59
#17967 Resposta escolhida

Se entendi tente

[Mensagem interna] #0000 Postado em 2004-04-01 10:16:14 (Com notificação de respostas por e-mail)EU ESTOU USANDO O LIST PARA MOSTRAR ALGUNS VALORES MAIS ESTOU COM UM PROBLEMA EU TENHO QUE FAZER UMA CONSULTA
SE PAGAMENTO FOR " " ENTÃO ELE NÃO MOSTRAR NO LIST PORéM ELE DEVE CONTINUAR SOMANDO OS VALORES DEIXANDO O SALDO CERTO

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

USUARIO.EXCLUIDOS 01/04/2004 10:22:54
#17968

Se não notou a diferença é


Saldo = Saldo + (RegCon("Entrada") - RegCon("Saida"))