powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / проблема млин
6 сообщений из 6, страница 1 из 1
проблема млин
    #32745860
Mikhail Eremkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dim JOURNAL as new DataTable
......
For Each docRow In JOURNAL.Rows
JOURNAL.Rows.Remove(docRow)
Next

выдается ссобщение об ошибке:

Collection was modified; enumeration may not execute
...
Рейтинг: 0 / 0
проблема млин
    #32745972
Фотография vladgrig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        
       For i As Integer =  0  To DataSet11.Table1.Rows.Count
            If DataSet11.Table1.Rows.Count =  0  Then Exit For
            DataSet11.Table1.Rows.RemoveAt(i)
            i = - 1 
       Next

End Sub
...
Рейтинг: 0 / 0
проблема млин
    #32746015
Mikhail Eremkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо, работает. но все-таки кто-нибудь знает почему возникла ошибка.
...
Рейтинг: 0 / 0
проблема млин
    #32746164
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Mikhail Eremkin
Коллекция изменяется в цикле, при обращении к ней она уже другая - так писать нельзя.
...
Рейтинг: 0 / 0
проблема млин
    #32746204
Mikhail Eremkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо, я понял.
...
Рейтинг: 0 / 0
проблема млин
    #32746213
Mikhail Eremkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
переписал следующим образом все работает корректно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Public Sub УдалитьСтроки(ByRef t As DataTable)
        Dim iRow As Integer
        Dim kRows As Integer
         '   ------------------------------------------------------------------- 
        kRows = t.Rows.Count
        If kRows <>  0  Then
            For iRow  = kRows -  1  To  0  Step - 1 
                t.Rows(iRow).Delete()
            Next
        End If
    End Sub
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / проблема млин
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]