为什么报告的第二条记录转到下一页?

时间:2019-02-16 01:59:27

标签: delphi report delphi-2007 fastreport

我在FastReport报告中打印两个列表,每个TfrxMasterData中一个,问题是当查询返回多个记录时,此新记录被插入到新页面中,它需要出现在同一页面上,一个在另一个下方。

报告OnGetValue过程

   procedure TfrmBoletimGeralImpressao.frpExemploGetValue(const VarName: string;
      var Value: Variant);
    begin

      if CompareText(VarName, 'element') = 0 then
      begin
        Value := listaDisciplinas[StringDs.RecNo];
      end;

      if CompareText(VarName, 'element2') = 0 then
      begin
        Value := listaNotas[StringDs.RecNo];
      end;
     end;

这是代码的一部分,我要为每个学生打印他所做的测试结果

  for t := 0 to listaSimulados.Count - 1 do
      begin
        if SimuladoIDAtual = TSimuladoDto(listaSimulados.Items[t]).simuladoID
          then
        begin
          igual := true;
          simuladoAluno := TSimuladoAlunoNotasDto.create;
          simulado := TSimuladoDto(listaSimulados.Items[t]);
          getAluno(AlunoID);
          simuladoAluno.simuladoID := SimuladoIDAtual;
          simuladoAluno.alunoID := AlunoID;
          loadDisciplinasDoSimulado(SimuladoIDAtual);
          StringDs.RangeEnd := reCount;
          StringDs.RangeEndCount := simuladoAluno.listaDisciplinas.Count;
          getReport.PrepareReport(false);
          dtmGlobal.qry1.next;
          SimuladoIDAtual := dtmGlobal.qry1.FieldByName('SimuladoID').AsInteger;
        end;
      end;
      dtmGlobal.qry1.next;
    end;
  end;
  getReport.ShowPreparedReport;
end;

enter image description here

enter image description here 当查询返回两个或多个测试时,每个测试都会显示在报告表上,我需要使其保持在另一个测试之下。

1 个答案:

答案 0 :(得分:1)

检查StartNewPageHeader1的{​​{1}}属性,其中之一可能被选中True