[求助]怎样让按钮执行取消筛选?

nofuture

Option Compare Database
Option Explicit
Private Sub form_load()
Me.Child_market.Form.AllowAdditions = False
Me.Child_market.Form.AllowDeletions = False
Me.Child_market.Form.AllowEdits = False
Me.Child_market.Form.AllowFilters = True

End Sub

'全部
Private Sub cmd_all_Click()
Me.Child_market.Form.SetFocus
DoCmd.CancelEvent
Com1 = "*"
com2 = "*"
com3 = "*"
com4 = "*"
Child_market.Requery
End Sub

'查询
Private Sub cmd_q_Click()
Child_market.Requery
End Sub


先是通过鼠标右键对选定内容进行了筛选

我想让在cmd_all_click事件里添加取消通过鼠标右键进行的筛选操作,该怎么写?

[此贴子已经被作者于2006-3-9 10:21:11编辑过]

skylark

试试:

.............

Child_market.FilterOn=False

Child_market.Requery

nofuture

那样不行的，如果把FILTERON关了，基于窗体的SQL查询也失效了~！

我觉得应该有一个对应于鼠标右键“取消筛选”的代码！

[此贴子已经被作者于2006-3-9 10:38:01编辑过]

nofuture

抬一抬~!

海狸先生

DoCmd.RunCommand acCmdRemoveFilterSort