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

Комментарии

• gpi

  November 2005 отредактировано 09:14

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

  November 2005 отредактировано 09:14

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

  November 2005 отредактировано 09:14

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

    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++;
      }
  
    }