Как организовать поиск в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.286 из 5
Похожие ответы