Страницы: 1
RSS
Очистка TextBox-ов циклом
 
Доброй ночи.

Подскажите, пожалуйста, нужно очистить на UserForm несколько TextBox-ов циклом
делаю так:    
Код
MaxNods = 4
For i = 10 To i + MaxNods
        DoorSetup.Controls("TextBox" & i).Value = ""
        DoorSetup.Controls("ComboBox" & i).Clear
        DoorSetup.Controls("ComboBox" & i).RowSource = MaterialList
Next i
ничего не чистит, но и ошибки не выдает,
а вот так:
Код
DoorSetup.Controls("TextBox14").Value = ""
очищает без вопросов  - вчем грабли??

Всем заранее спасибо
 
копайте здесь:
Код
For i = 10 To i + MaxNods
если перед началом цикла i меньше 6, то все что внутри этого цикла не будет выполняться НИКОГДА.
Изменено: Ігор Гончаренко - 20.02.2017 00:33:45
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Да именно так, грабли были там - огромное спасибо, пора спать ))
 
Вариант:
Код
Dim x As Control
    For Each x In Me.Controls
        If TypeOf x Is MSForms.TextBox Then
        x.Value = ""
        End If
    Next
Страницы: 1
Наверх