十万火急!这一下怎么办?

[leang]

我想这样:
QuickRep的dataset是Query!
我想在当前Query的SQL语句所查询出来的记录打印完后.通过代码我要又给它传递另外一条SQL语句,然后报表又开始继续打印.这中间要其自动完成!
我想知道的是在什么时间中可以控制?
如果可以的话,你是否还可告诉我怎么写代码?

[leang]

我想这样:
QuickRep的dataset是Query!
我想在当前Query的SQL语句所查询出来的记录打印完后.通过代码我要又给它传递另外一条SQL语句,然后报表又开始继续打印.这中间要其自动完成!
我想知道的是在什么事件中可以控制?
如果可以的话,你是否还可告诉我怎么写代码?

[Drate]

那你不能做成一个报表，但调用 两次吗？

[leang]

实在不好意思!
"做成一个报表，但调用 两次"
我不会!报表怎么调用?
我现在刚开始接触报表!

[lxpbuaa]

procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
if DataSet.Eof then
begin
DataSet.Close;
TQuery(DataSet).SQL.Text := '……';
DataSet.Open;
DataSet.AfterScroll := nil;
end;
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[samcrm]

做两个报表，分别对应改变SQL前后的Query即可。

.............
form2.QuickRep1.Preview;
Query1.Close;
Query1.SQL.Text:='xxxxxxxxxxxxx';
Query1.Open;
form2.QuickRep2.Preview;

[leang]

To lxpbuaa(桂枝香在故国晚秋) and All:
但是换了SQL语句后我想另起一页打印,怎么办?
Thanks!

[lxpbuaa]

procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
if DataSet.Eof then
begin
QuickRep1.NewPage;
DataSet.Close;
TQuery(DataSet).SQL.Text := '……';
DataSet.Open;
DataSet.AfterScroll := nil;
end;
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————