如何取消ADO对象中rst的筛选

[bjbs_vb]

rst_xtglj_b.Filter = "si like " & "'" & RTrim(rst_gljsi!si) & "*'"
已建立了rst_xtglj_b筛选
请问如何取消rst_xtglj_b筛选,恢复全数据

[gzhiceberg]

置为空不行吗？

[gzhiceberg]

rst_xtglj_b.Filter = ""
rst_xtglj_b.refresh

[weibz0525]

refresh方法就可以满足

[东方冉]

试试设置为AdFilterNone

[bjbs_vb]

AdFilterNone 如何设置

[bjbs_vb]

Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
If Check1(0).Value = 1 Then
rst_xtglj_b.Filter = "si like " & "'" & RTrim(rst_gljsi!si) & "*'"
Else

rst_xtglj_b.Filter = "" 或 rst_xtglj_b.Filter =AdFilterNone

End If
DataGrid1.Refresh
Case 1


End Select
End Sub
上述程序rst_xtglj_b.Filter = "" 或 rst_xtglj_b.Filter =AdFilterNone想取消筛选
可结果反而是所有数据都显示不出,不知难里出问题

[bjbs_vb]

rst_xtglj_b.Filter = "" 或 rst_xtglj_b.Filter =AdFilterNone
rst_xtglj_b.Requery 或 DataGrid1.DataSource = rst_xtglj_b
但这样破坏了DataGrid1的布局,还的重新写调整DataGrid1布局的代码;
rst_xtglj_b.Filter = "表达式"就不会这样
谁知道rst_xtglj_b.Filter =AdFilterNone和rst_xtglj_b.Filter = "表达式"运行机制为何有这样不同?

[szmickylee]

rs.Filter =0
就可以了！

[bjbs_vb]

谢谢大家参与,自己总结如下:
1.rst_xtglj_b.Filter = "表达式"
DataGrid1.Refresh即可
2.rst_xtglj_b.Filter = "" 或 rst_xtglj_b.Filter =AdFilterNone 或
rst_xtglj_b.Filter =0
需rst_xtglj_b.Requery 或 DataGrid1.DataSource = rst_xtglj_b
但这样破坏了DataGrid1的布局,还的重新写调整DataGrid1布局的代码;
问题:

rst_xtglj_b.Filter =AdFilterNone和rst_xtglj_b.Filter = "表达式"
运行机制为何有这样不同?