怎样把过滤过的数据在DBGRID上显示出来
编号：QA003410
建立日期: 2000年10月15日 最后修改日期：2000年10月15日
所属类别：
Feng:
操作系统: win98
编程工具: vb6.0
问题: 我的问题是怎样把过滤过的数据在DBGRID上显示出来，怎样过滤。我用的数据库是DAO数据库。
水平: 刚入门
回答:
下面是大致的代码：
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
此问题由李海回答。
| |
|
|
| |
|
|
