Как организовать поиск в DBGrid'е? - VB
Формулировка задачи:
Как организовать поиск в DBGrid'е? Делаю следующее:
Как-то делал с Adodc+DataGrid и всё работало, а тут не хочет. После нажатия кнопки ПОИСК видно, что он пробегает по базе, но при этом не останавливает указатель на искомой строке.
Подскажите, пожалуйста, где ошибка!
Решение задачи: «Как организовать поиск в DBGrid'е?»
textual
Листинг программы
Private Sub Command1_Click() Dim str As String str = Text1.Text Dim U, I, T, B, P As Integer U = 2 I = 3 T = 4 B = 5 P = 6 If Option1.Value = True Then: Main.DBGrid1.Col = U If Option2.Value = True Then: Main.DBGrid1.Col = I If Option3.Value = True Then: Main.DBGrid1.Col = T If Option4.Value = True Then: Main.DBGrid1.Col = B If Option5.Value = True Then: Main.DBGrid1.Col = P Main.Data1.Recordset.MoveFirst Do While Not (Main.Data1.Recordset.EOF) If (str = Main.DBGrid1.Text) Then Unload Me Exit Sub End If Main.DBGrid1.Row=1 Main.Data1.Recordset.MoveNext Loop MsgBox "Ничего не найдено!" ''Если цикл дойдёт до конца, значит ничего не найдено End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д