Этот цикл выполняется вечно, так как количество элементов в цикле приближается к чему-то близкому к 1000 и более, примерно к 10 минутам.Это должно быть быстрым для сумм до 30-40 тысяч.
'Add all Loan Record Lines
Dim loans As List(Of String) = lar.CreateLoanLines()
Dim last As Integer = loans.Count - 1
For i = 0 To last
If i = last Then
s.Append(loans(i))
Else
s.AppendLine(loans(i))
End If
Next
s - это StringBuilder.Первая строка там
Dim loans As List(Of String) = lar.CreateLoanLines()
Запускается всего за несколько секунд, даже с тысячами записей.Это фактический цикл, который занимает некоторое время.
Как это можно оптимизировать ???