FOR EACH

Question

Buenas noches , ando dandole vueltas hace 2 dias a este for each, si bien es cierto los calculos que me arrojan son correctos.

la columna de amort_efec ya la traigo del sql, son unos pagos que se hicieron, lo que hice aca fue generar el saldo por cada pago. 

ste es:

MontoInicial = CInt(txtimporte.Text)---este el importe que le ingreso

For Each Fila As DataRow In DT_Original.Rows
            PagoAmort = Fila("Amort_Efec")
            x += 1
            If x = 1 Then
                NuevoMontoInicial = MontoInicial
            Else
                ' PagoAmort = Fila("Amort_Efec")
                NuevoMontoInicial = NuevoMontoInicial - PagoAmort
                'Fila("IntProgramado") = PorcentajeProg
                'Fila("cuota") = txtcuota.Text
                'Fila("Intprogramado") = Math.Round(NuevoMontoInicial * PorcentajeProg, 2)
                'Fila("AmorProgramada") = Math.Round(Fila("Cuota") - Fila("Intprogramado"), 2)
            End If

Fila("saldo") = NuevoMontoInicial

next

---

lutermick