通过快速搜索突出显示Datagrid中的记录

时间:2017-04-06 09:41:59

标签: datagrid vb6 ado

我想在搜索记录时突出显示datagrid中的特定记录。它就像一个快速搜索,用户写下名称,并立即找到记录。到目前为止,我只有一个箭头指向记录,但我需要它完全突出显示。提供图像以供进一步说明。 代码:

Private Sub txtQuickSearch_Change()
Dim varBookmark As Variant
        With StudentTable
                varBookmark = .Bookmark
            If (.SelBookmarks.Count <> 0) Then
                .SelBookmarks.Remove 0
            End If
                Adodc1.Recordset.MoveFirst

                Adodc1.Recordset.Find "[Last Name] like '" & txtQuickSearch.Text & "'"

            If frmStudents.Adodc1.Recordset.BOF Then

                .SelBookmarks.Add Adodc1.Recordset.Bookmark     
            End If
        End With
End Sub

This is how it is now

This is how i would like it

1 个答案:

答案 0 :(得分:0)

@Jim Hewitt解决了这个问题,我需要添加这个声明:     If Not frmStudents.Adodc1.Recordset.BOF And Not frmStudents.Adodc1.Recordset.EOF Then