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