Ваш For
цикл определен неправильно, поэтому вы получаете сообщение об ошибке:
For i as Integer = 1 To i <= dtCurrentTable.Rows.Count
оценивается до
For i as Integer = 1 To True
(потому что я всегда <= Rows.Count)
который VB переводится как <br>
For i as Integer = 1 To -1
это означает, что ваш цикл никогда не запускается.
It
должно быть
For i as Integer = 1 To dtCurrentTable.Rows.Count
Также есть что-то странное в том, как вы используете drCurrentRow = dtCurrentTable.NewRow
. Почему это внутри цикла, когда вы ничего не делаете с ним в цикле? Он выполняется несколько раз, а затем dtCurrentTable.Rows.Add(drCurrentRow)
вызывается только один раз.
Мне трудно исправить, потому что я не могу понять, что ты пытаешься сделать, но этот бит кажется мне хитрым.