2017-04-06 77 views
0

我想在搜索记录时突出显示datagrid中的特定记录。它就像一个快速搜索,用户写的名字,并立即找到记录。到目前为止,我只有一个箭头指向记录,但我需要它完全突出显示。提供图像供进一步解释。 代码:通过快速搜索在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

+0

我想你想'如果不frmStudents.Adodc1 .Recordset.BOF然后' –

+0

当我这样做时,它给了我这个错误'运行时错误'3021':BOF或EOF是True,或者当前记录已被删除。请求的操作需要当前记录。“@JimHewitt –

+0

'如果不是frmStudents.Adodc1.Recordset.BOF而不是frmStudents.Adodc1.Recordset.EOF然后' –

回答

0

@Jim休伊特,解决了这一问题,我需要添加以下语句: If Not frmStudents.Adodc1.Recordset.BOF And Not frmStudents.Adodc1.Recordset.EOF Then