数据刷新后不能完全正确地显示

[Lin2000y]

select class_kc
=Requery()
set filter to 本周收入+本月收入+本月发出+本周发出+月上期+周上期+结存数量>0 or 本月修改#0 Or 本周修改#0
if reccount()=0
=Messagebox("没找到相关资料 ！",64,"提示")
ThisForm.Refresh()
Return
endif
ThisForm.grdClass_kc.setfocus
ThisForm.Refresh()

以上是我的程序部份，class_kc是绑定到了一个Grid控件上
运行的过程中没有提示过任何的错误提示，但是刷新后调试到有查询到记录的，但是数据始终不能正确显示在Grid上,时而不显示时而不显示时而只显示一条记录，连报表也不能预览了(我是把刷新得出的数据进行报表打印的)。

[duckson]

第一行加一句
set filter to