Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C/C++: Базы данных > Отчет в Fast Report

Автор: kotyonochek07 31.3.2011, 13:47

База IB.

Нужна очень помощь с отчетами.
Есть 3 таблицы. 2 из них связаны внешним ключом с третьей.
Данные из этих таблиц собираются в трех разные отчетах(pts_bus .fr3, pts_gruz.fr3, pts_sedan.fr3).

Пишу первый код:
void __fastcall Tdm::Get_rst_putlist(int num)
{
  rst_putlist->Close();
  rst_putlist->SQL->Clear();
  rst_putlist->SQL->Text="select *  from RST_PUTLIST_HEADER where NUMPUTLIST = :pnum";
  rst_putlist->ParamByName("pnum")->Value=num;
  rst_putlist->Open();
}

Второй:
void __fastcall Tdm::Print_putlist()
{
Get_rst_putlist(dm->rst_putlistNUMPUTLIST->Value);
switch (dm->rst_putlistID_TIPMASHIN->Value){
       case 1:{dm->Report->LoadFromFile(ReportDir+"pts_bus.fr3");}break;
       case 2:{dm->Report->LoadFromFile(ReportDir+"pts_gruz.fr3");}break;
       case 3:{dm->Report->LoadFromFile(ReportDir+"pts_sedan.fr3");}break;
default:
    ;
}
dm->Report->ShowReport();
}

Где:String ReportDir

И затем код для самой кнопки "Печать":

void __fastcall Tmain::acPrintPutlistExecute(TObject *Sender)
{
dm->Print_putlist();

Результат получается такой:
    появляется пустой отчет без листа, а при закрытии остается в таблице только та строка, которую я выбирала на печать

Автор: kotyonochek07 31.3.2011, 14:45

Проблему решила, заменив ReportDir+"pts_bus.fr3" на "C:\\ ... \\pts_bus.fr3" и т.д.