Печать таблицы

viv

Как можно подготовить отчет для таблицы, у которой количество столбцов неизвестно на этапе проектирования?

gpi

См. пример \Demos\PrintTable

viv

Пример конечно замечательный, только на Дельфе.
А я на билдере пишу.
А нельзая ли для этой цели использовать frxDBCrossView?

viv

Разобрался.
Делаю следующим образом:

  if(Sender->Name=="Cross1")
  {
    mt->First();
    int i = 0,j=0;
    TfrxCrossView *Cross = (TfrxCrossView*)Sender;
    Variant v1[1],v2[1],v0[1];
    while (!mt->Eof)
    {
      for(j= 0;j<mt->Fields->Count - 1;j++)
      {
        v1[0]=mt->Fields->Fields[j]->DisplayLabel;
        v2[0]=mt->Fields->Fields[j]->AsString;
        v0[0]=i;
        Cross->AddValue(v0,1, v1,1, v2,1);
      }
      mt->Next();
      i++;
    }

  }