I have a calculation which I run against the rows of a datatable. The code below is run if the user picks the Count Policy option.
It runs fine if there are a thousand or so rows. However, over a certain number, this step will cause the program to crash.
I'm not sure exactly where in the procedure is causing the crash, but I do know that the report will complete if the User does not select the Count Policy option.
Private Sub Count_Policy()
Dim rowRenewal As RenewalsRow
For Each rowRenewal In Me.PolicyDataSet.Renewals
rowRenewal.PolicyCount = Me.PolicyDataSet.Renewals.Compute("Count(BrokerRef)", "PolicyRef = '" & rowRenewal.PolicyRef & "'")
I suspect that are just too many rows for the AcceptChanges to process.
Any suggestions on how I could improve this code to not cause a crash? Note that I cannot change the way that data is loaded into the dataset, so please do not give any suggestions that involve SQL.