Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Дрюня можно так
Private Sub find_RecordByID(ID As Variant) Dim k As Integer If lv.ListItems.Count = 0 Then Exit Sub For k = 1 To lv.ListItems.Count If lv.ListItems(k) = ID Then lv.SelectedItem.EnsureVisible lv.ListItems(k).Selected = True Exit For End If Next k End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.