Я печатаю два списка в моем отчете FastReport, по одному в каждом TfrxMasterData, проблема в том, что когда запрос возвращает более одной записи, эта новая запись вставляется на новую страницу, она должна появиться на той же самой странице, одинпод другим.
Процедура Report 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;
Когда запрос возвращает два или более тестов, каждый тест появляется на листе отчета, и мне нужночтобы оставаться один под другим.