PROBLEMA COM UM LOOP - PARTE II

WEBIER 11/04/2011 10:23:31
#371039
Estou com um problema em outro loop.

tenho um relatorio que me exibe as parcelas num label em array

exemplo:

01 10/04/11 10,00
02 10/05/11 10,00
03 10/06/11 10,00
04 10/07/11 10,00
05 10/08/11 10,00

meu problema tá na hora de limpar o array para exibir novos dados

se eu mostrar 5 parcelas e depois for fazer uma nova venda com só 1 parcela... ele me mostra a 1a. parcela certo e da segunda parcela em diante as parcelas da venda anterior...

exemplo:
01 12/05/11 22,00
02 10/05/11 10,00
03 10/06/11 10,00
04 10/07/11 10,00
05 10/08/11 10,00

olha meu codigo ai:
Set rsParcelas = BD.OpenRecordset([Ô]Select * from Parcelas where COD_PEDIDO = [Ô] & Pedido & [Ô] order by NUMERO[Ô])

[ô]parcelas do pedido
For i = 0 To 4
    frNumParc(i).Caption = [Ô][Ô]
    frVencParc(i).Caption = [Ô][Ô]
    frValorParc(i).Caption = [Ô][Ô]

    If Not rsParcelas.EOF Then
    
        frNumParc(i).Caption = Format(rsParcelas!NUMERO, [Ô]00[Ô])
        frVencParc(i).Caption = Format(rsParcelas!Data, [Ô]dd/mm/yy[Ô])
        frValorParc(i).Caption = Format(rsParcelas!Valor, [Ô]##,##0.00[Ô])
    
        rsParcelas.MoveNext
    End If
Next
MARCELO.TREZE 11/04/2011 10:36:03
#371043
???

vc me deixou em duvida nesta

percebi que vc possui 3 labels, e cada label é um array, é isso mesmo?

quantos de cada label, existem?
WEBIER 11/04/2011 10:44:19
#371047
os sao 3 label em array

cada array possui 5
MSMJUDAS 11/04/2011 14:33:11
#371076
Não seria mais facil vc mostrar as parcelas dentro de um Grid?

Só uma sugestão, ficaria mais fácil de fazer.
HIDDEN 11/04/2011 14:54:14
#371080 Resposta escolhida
Também acho que um grid ou um ListView seria mais adequado. Mas porque não desmembra a função:

For i = 0 To 4
    frNumParc(i).Caption = [Ô][Ô]
    frVencParc(i).Caption = [Ô][Ô]
    frValorParc(i).Caption = [Ô][Ô]
Next

Dim Cont as Long
Cont = 1

Do While Not rsParcelas.EOF    
   frNumParc(Cont).Caption = Format(rsParcelas!NUMERO, [Ô]00[Ô])
   frVencParc(Cont).Caption = Format(rsParcelas!Data, [Ô]dd/mm/yy[Ô])
   frValorParc(Cont).Caption = Format(rsParcelas!Valor, [Ô]##,##0.00[Ô])
   Cont = Cont + 1
   rsParcelas.MoveNext
Loop
HIDDEN 11/04/2011 14:56:56
#371083
Ops, inicie Cont = 0
WEBIER 12/04/2011 22:38:42
#371156
Citação:

:
Não seria mais facil vc mostrar as parcelas dentro de um Grid?

Só uma sugestão, ficaria mais fácil de fazer.



Na verdade isso é num relatorio (Visual ReportX)... onde possui um array de labels que serão carregados para serem impressos
Tópico encerrado , respostas não são mais permitidas
Voltar