Объединение нескольких вариантов одной таблицы
Уважаемые форумчане! (Delphi XE2, FastReport 5 VCL)
Есть одна таблица с колонками Имя Фамилия Город Телефон
Задача вывести в один отчет и распечатать четыре варианта с разной сортировкой по колонкам.
Сортировку делаю через цикл и записываю в файл и параллельно в PDF
<!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->frxReport4.SaveToFile(‘variant' + IntToStr(i) + '.fr3');
frxPDFExport.FileName := 'variant' + IntToStr(i) + '.pdf';
if frxReport.PrepareReport() then frxReport.Export(frxPDFExport);
<!--fontc--></span><!--/fontc-->Далее через сакраментальное
<!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->frxReport.Preview := nil;
frxReport.LoadFromFile('variant1.fr3');
frxReport.PrepareReport();
frxReport.LoadFromFile('variant2.fr3');
…
frxReport.LoadFromFile('variant4.fr3');
frxReport.PrepareReport(False);
frxReport.ShowPreparedReport;
frxReport.Preview := frxPreview;<!--fontc--></span><!--/fontc-->
вывожу в Preview – сортировка не работает все варианты одинаковые. А в файлах PDF – сортировка правильная.
Подскажите пожалуйста как мне решить эту проблему. Название колонок абстрактные. База большая и вариантов сортировки до 20. Пользователю не объяснишь, что ему надо сделать 20 распечаток.
Есть одна таблица с колонками Имя Фамилия Город Телефон
Задача вывести в один отчет и распечатать четыре варианта с разной сортировкой по колонкам.
Сортировку делаю через цикл и записываю в файл и параллельно в PDF
<!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->frxReport4.SaveToFile(‘variant' + IntToStr(i) + '.fr3');
frxPDFExport.FileName := 'variant' + IntToStr(i) + '.pdf';
if frxReport.PrepareReport() then frxReport.Export(frxPDFExport);
<!--fontc--></span><!--/fontc-->Далее через сакраментальное
<!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->frxReport.Preview := nil;
frxReport.LoadFromFile('variant1.fr3');
frxReport.PrepareReport();
frxReport.LoadFromFile('variant2.fr3');
…
frxReport.LoadFromFile('variant4.fr3');
frxReport.PrepareReport(False);
frxReport.ShowPreparedReport;
frxReport.Preview := frxPreview;<!--fontc--></span><!--/fontc-->
вывожу в Preview – сортировка не работает все варианты одинаковые. А в файлах PDF – сортировка правильная.
Подскажите пожалуйста как мне решить эту проблему. Название колонок абстрактные. База большая и вариантов сортировки до 20. Пользователю не объяснишь, что ему надо сделать 20 распечаток.
Комментарии