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

Question

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

Answer 1

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

Answer 2

procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
  if DataSet.Eof then
  begin
    DataSet.Close;
    TQuery(DataSet).SQL.Text := '……';
    DataSet.Open;
    DataSet.AfterScroll := nil;
  end;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 3

做两个报表，分别对应改变SQL前后的Query即可。.............
form2.QuickRep1.Preview;
Query1.Close;
Query1.SQL.Text:='xxxxxxxxxxxxx';
Query1.Open;
form2.QuickRep2.Preview;

Answer 4

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

Answer 5

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;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————