Question

急 ！！！急！！！Delphi中如何将DBgrid中的内容制作成报表

导入数据后，我模糊查询得到结果 我只在报表中显示编号 姓名 班级 档次 年度的内容。
procedure TF_demo.Button4Click(Sender: TObject);
var
CurDir:String;
RaveFile:String;

begin
RvProject1.Open ;
RvProject1.ExecuteReport('Report1');
GetDir(0,CurDir); //获得当前路径
RaveFile:=Curdir+'\Project1.rav';
RvProject1.ProjectFile:=RaveFile;
RvProject1.Execute;
我用了这三个组件
RvProject1: TRvProject;
RvSystem1: TRvSystem;
RvDataSetConnection1: TRvDataSetConnection;
// RvDataSetConnection1连接的ADOQuery是查寻时所用的ADOQuery
上面的查询后打印其结果实现了
但是当没进行查询操作时想打印报表全部数据时会出现COmmandtext does not reyurn a result set。希望高手帮忙！！有不方便在这讲解可加 Q 441486462

Answer 1

COmmandtext does not reyurn a result set

这句错误提示，大概意思是指命令文本没有返回结果数据集。

如果你想打印全部数据，这时仍然需要给rave报表提供数据，只是query里的sql语句变成获取全部记录。

追问

我知道 那这句话意思 只是该如何解决

追答

在打印报表之前，无论是全部还是部分，都先query一下，得到数据后，再打印

追问

我不太会 能详细点不？能有代码更好

追答

当没进行查询操作时想打印报表全部数据时会出现COmmandtext does not reyurn a result set

在打印之前，先设定 RvDataSetConnection1连接的ADOQuery 的 commandtext 属性，或者SQL属性。

其实，就是跟你查询操作时一样，只不过，这个不加条件限定。

追问

额……SQL属性该怎么设置呢 一下给我说了吧 还卖关子的啦

追答

跟卖关子有啥子关系。。。。

1. “COmmandtext does not reyurn a result set” 错误提示，就是说你commandtext没写好，没有返回数据集

2. “当没进行查询操作时想打印报表全部数据时会出现”， 也就是说进行查询的时候结果是正常的

3. 所以，比方如：你查询的是

“ select 编号,姓名,班级,档次,年度 from youtable where 编号=1 ”

那么，你现在把 where 什么的 去掉，改成

"select * from youtable”

一样是查询，只不过改了SQL语句。

Answer 2

在开始部分加一句：
if ADOQuery.IsEmpty then exit;

追问

为什么加了 没查询按打印报表没任何反应呢

追答

系统报错是因为没有你要打印的数据。if ADOQuery.IsEmpty then exit; 就是判断数据是否为空，如果为空了，就自动退出函数，从而不会引起错误。

Answer 3

xlreport控件