Страница: 1 |
Народ, что-то я не пойму... Dim stg As String, stt As String
Вероятно, возникает ошибка в проверке условия... Убери On Error Resume Next и запусти. Страница: 1 |
Вопрос: Почему?
Добавлено: 31.07.03 14:16
Автор вопроса:
Nio | Web-сайт: www.fea.nxt.ru
stg = c1.Text
On Error Resume Next
For iz = 0 To frmMain.Controls.Count
stt = frmMain.Controls(iz).Name
If stt = stg And frmmain.Controls(iz).Index = Val(c2.Text) Then
MsgBox frmmain.Controls(iz).Name, , c1.Text
End If
Next iz
Как видно, этот код должен выдавать сообщение, если имя контрола совпадает с текстом первого комбобокса, а индекс - второго. Но почему сообщение выдаётся и в противном случае?!
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа:
univercal
ICQ: 173084484
Вопросов: 5
Ответов: 76
Web-сайт:
Профиль | | #1
Добавлено: 31.07.03 15:08