Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Slavicos
-
- Начинающий
-
-
- Сообщения: 17
- Зарегистрирован: 16.11.2005 (Ср) 17:04
Slavicos » 21.11.2005 (Пн) 17:59
- Код: Выделить всё
Private Sub ShowData()
Dim intI As Integer
On Error GoTo ERROR
For intI = 1 To intColls Step 1
Me.Text(intI).Text = T.Fields(Me.Label(intI).Caption)
Next intI
ERROR:
If Err.Number = 3021 Then
MsgBox ("ошибка обработана") '
End If
End Sub
то есть не бежит по goto со строки
Me.Text(intI).Text = T.Fields(Me.Label(intI).Caption)
Больно не бить!
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: Yandex-бот и гости: 193