COMO COLOCAR PARCELAS NA MSFLEXGRID1 EM SEQUENCIA

AUSTANDER 23/12/2012 22:38:15
#416359

Amigos, to precisando colocar as parcelas do programa na seguinte ordem

Suponhamos que o valor da parcela seja de 3 x de R$ 12,00

Então eu queria que ficasse assim

PARCELA VALOR VENCIMENTO
001 de 003 R$ 4,00 26/12/2012
002 de 003 R$ 4,00 26/01/2013
003 de 003 R$ 4,00 26/02/2013

Sendo que meu codigo está repetindo valores, me ajudem

Private l As String

Private valor As String

valor = (lblTotalLancamento.Caption / txtParcelas.Text) [ô] Dividirá o txtvalor por txtparcelas e a variavel (valor ficara com resultado)

l = txtParcelas [ô] Quantidade de Parcelas

Dim MyArray(32) As Date [ô] Indica que o numero Maximo de Parcelas será 32

Dim i As Integer

MyArray(0) = cboData.Text [ô] Indica que Myarray começara no (0) que será o valor de cbodata

For i = 0 To l [ô] Indica que (i) irá de 0 até o Valor de (l)

MyArray(i) = DateAdd([Ô]m[Ô], i, cboData.Text) [ô] indica que Myarray Somara o Valor de (i) que será o Numero de Parcelas e (m) indica o Mês

If Trim(txtParcelas.Text) = [Ô]01[Ô] Then

MSFlexGrid1.AddItem [Ô]001 de 001[Ô] + Chr$(9) & Format(valor, [Ô]##,##0.00[Ô]) + Chr$(9) & MyArray(i)

ElseIf Trim(txtParcelas.Text) = [Ô]02[Ô] Then

MSFlexGrid1.AddItem [Ô]001 de 002[Ô] + Chr$(9) & Format(valor, [Ô]##,##0.00[Ô]) + Chr$(9) & MyArray(i)

MSFlexGrid1.AddItem [Ô]002 de 002[Ô] + Chr$(9) & Format(valor, [Ô]##,##0.00[Ô]) + Chr$(9) & MyArray(i)

ElseIf Trim(txtParcelas.Text) = [Ô]03[Ô] Then

MSFlexGrid1.AddItem [Ô]001 de 003[Ô] + Chr$(9) & Format(valor, [Ô]##,##0.00[Ô]) + Chr$(9) & MyArray(i)

MSFlexGrid1.AddItem [Ô]002 de 003[Ô] + Chr$(9) & Format(valor, [Ô]##,##0.00[Ô]) + Chr$(9) & MyArray(i)

MSFlexGrid1.AddItem [Ô]003 de 003[Ô] + Chr$(9) & Format(valor, [Ô]##,##0.00[Ô]) + Chr$(9) & MyArray(i)

end if

Next

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1


vlwwwwww