Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Summer.05
-
- Бывалый
-
-
- Сообщения: 285
- Зарегистрирован: 28.12.2005 (Ср) 20:19
- Откуда: Москва
-
Summer.05 » 04.08.2006 (Пт) 9:39
Есть DataGrid и есть кнопка - "Поиск"
Нужно ввести через InputBox фамилию, которая содержится в какой-то ячейке колонки Name в DataGrid.
После нажатия кнопки осуществляется поиск и я перехожу к этой ячейке.
Есть
Private Sub btnSearch _Click()
Dim Name As String
Name= InputBox("Ведите фамилию" + vbCrLf, "Поиск", "")
If Name <> "" Then
И что дальше?
Прошу совета!
Спасибо!
-
Antonariy
-
- Повелитель Internet Explorer
-
-
- Сообщения: 4824
- Зарегистрирован: 28.04.2005 (Чт) 14:33
- Откуда: Мимо проходил
-
Antonariy » 04.08.2006 (Пт) 9:58
Работаешь с рекордсетом, использованном как источник для грида.
- Код: Выделить всё
cb = rs.Bookmark
rs.MoveFirst
rs.Find "Name = '" & Name & "'"
If rs.EOF Then
If cb>0 Then rs.Bookmark = cb
MsgBox "Нема!"
End If
Лучший способ понять что-то самому — объяснить это другому.
-
Summer.05
-
- Бывалый
-
-
- Сообщения: 285
- Зарегистрирован: 28.12.2005 (Ср) 20:19
- Откуда: Москва
-
Summer.05 » 04.08.2006 (Пт) 11:00
Antonariy
Спасибо, о Повелитель!
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 77