怎样把过滤过的数据在dbgrid上显示出来.txt

VB技巧问答10000例 VB技巧问答10000例

下 面 是 大 致 的 代 码 ： 
    Private Sub cmdFilter_Click() 
     On Error GoTo FilterErr 
     
     Dim recRecordset1 As Recordset, recRecordset2 As Recordset 
     Dim sFilterStr As String 
     
     If Data1.RecordsetType = vbRSTypeTable Then 
     Beep 
     MsgBox "不 能 过 滤 表 记 录 集 ！ ", 48 
     Exit Sub 
     End If 
     
     Set recRecordset1 = Data1.Recordset '复 制 记 录 集 
     
     sFilterStr = InputBox("输 入 过 滤 器 表 达 式 ： ") 
     If Len(sFilterStr) = 0 Then Exit Sub 
     
     Screen.MousePointer = vbHourglass 
     recRecordset1.Filter = sFilterStr 
     Set recRecordset2 = recRecordset1.OpenRecordset(recRecordset1.Type) '建 立 过 滤 器 
     Set Data1.Recordset = recRecordset2 '赋 值 为 初 始 记 录 集 对 象 
     
     Screen.MousePointer = vbDefault 
     Exit Sub 
     
    FilterErr: 
     Screen.MousePointer = vbDefault 
     MsgBox "错 误 ： " & Err & "， " & Err.Description 
    End Sub 
<END>