Postada em 31/10/2004 08:15 hs
Existem várias maneiras.
Vc pode descarregá-la num TextBox - Multiline = True; num Grid; etc.
O comando pra isso seria +/- assim:
With DataEnv.rsDespesa
.Open cSQL, , adOpenForwardOnly, adLockReadOnly
Do While Not .EOF
Saldo = (CCur(Saldo) + !DebVlr)
Alinhar = (65 - (Len(Trim(!Emitente))))
' If Alinhar = 52 Then Alinhar = (Alinhar + 20) 'DER (52)???
If Alinhar > 43 Then Alinhar = (Alinhar + 10)
frmConsulta.Text1.Text = frmConsulta.Text1.Text & !DataEmissao & vbTab & !Emitente & String(Alinhar, " ") & vbTab & FormatCurrency(!DebVlr, 2) & vbCrLf
.MoveNext
Loop
.Close
End With
Feliz aquele que passa o que sabe e aprende o que ensina  
|
