date方面得小疑点

date方面得小问题
不知道该怎么问,所以举个例

form上

option   group里有两个option(昨日资料,今日资料)

点选昨日资料会显示昨日日期的资料在grid上
点选今日资料会显示今日日期的资料在grid上

现在做一个输出报表的button,要如何让option选在昨日的时候,点列印button
输出昨日日期的资料,点在今日日期option时输出列印今日资料呢!?


下段是我输出报表button的程式...要怎么改才能对应option的点选

select     工作日志
thisform.oldrecord   =   recno()
set   filter   to   dairy_date   =   DATE()
report     form     dairy_des   noconsole     preview
select     工作日志
go   thisform.oldrecord



------解决方案--------------------------------------------------------
出报表button的程式

select 工作日志
report form dairy_des noconsole preview
go thisform.oldrecord


option group的Click事件：
select 工作日志
IF THIS.VALUE=1
set filter to dairy_date = DATE()-1
ELSE
set filter to dairy_date = DATE()
ENDIF
THISFORM.GRID1.REFRESH