不知道你的数据窗口是什么样的,不过有个控件datagrid可以用来显示查找结果的.
如果你用的是recordset类来查的话,可以将有关row的值或book之类的值保
存下来,再用datagrid定位.

解决方案 »

  1.   

    用recordset和datagrid的话
    你可以用
    set datagrid.recordsource=recordset
    这样datagrid就会显示你查找的结果
      

  2.   

            For i = 1 To gridVip.Rows - 1
                If Trim(txtName.Text) = Trim(gridVip.TextMatrix(i, 0)) Then
                    gridVip.HighLight = flexHighlightAlways
                    gridVip.Row = i
                    gridVip.Col = 0
                    gridVip.TopRow = i
                    Call ShowAgent
                    Exit Sub
                End If
                If i = gridVip.Rows - 1 Then
                    MsgBox "   查无些人!    " & vbCrLf & vbCrLf & "   请确认后再输      ", 48, msgTitle
                    txtName.SetFocus
                    Exit Sub
                End If
            Next i
    ==================
    上面这段代码是用MSHFLEXGRID的,你可以参考一下。