按年月打印报表(50分)

按条件打印报表，我不知道怎样按时间打印。

分组打印呀

按时间例；日期2002-4-19我想打印2002年4月的所有数据

用自定义函数和交叉表搞定！

用模糊查找

先将2002年4月的报表查出（过滤）出，再打印，关键是如何2002年4月的记录全部找出（如何你用的是日期字段可考虑相关函数）

我知道用SQL里的
rpt_wage.Query1.Close;
rpt_wage.Query1.SQL.Clear;
rpt_wage.Query1.SQL.Add('select * from 出货单.db');
//rpt_wage.Query1.SQL.Add('where datepart(yy,安装日期) like:nd');
//rpt_wage.Query1.ParamByName('nd').asstring:=ComboBox1.text;
//rpt_wage.Query1.SQL.Add('and datepart(mm,安装日期) like:yf');
//rpt_wage.Query1.ParamByName('yf').asstring:=ComboBox2.text;
rpt_wage.DataSet:=rpt_wage.query1;
rpt_wage.Query1.Prepare;
rpt_wage.Query1.execSQL;

rpt_wage.Query1.Close;
rpt_wage.Query1.SQL.Clear;
rpt_wage.Query1.SQL.Add('Select * From 出货单.db');
rpt_wage.Query1.Prepare;
rpt_wage.Query1.Open;
rpt_wage.Preview;
但是总报错。

报错的是什么？？

编译后，运行这句话
//rpt_wage.Query1.SQL.Add('where datepart(yy,安装日期) like:nd');
//rpt_wage.Query1.ParamByName('nd').asstring:=ComboBox1.text;
//rpt_wage.Query1.SQL.Add('and datepart(mm,安装日期) like:yf');
//rpt_wage.Query1.ParamByName('yf').asstring:=ComboBox2.text;
你可以试一试

多人接受答案了。