Перенос полей

Комментарии

• -=Den=-

  September 2005 отредактировано 14:41

  Самый простой способ (при зтом необходимо знать столбец с которого периносится таблица ) для примера из демки:
  

  procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
  var
    Cross: TfrxCrossView;
    i, j: Integer;
  begin
    if c is TfrxCrossView then
    begin
      Cross := TfrxCrossView(c);
  
      Table1.First;
      i := 0;
      while not Table1.Eof do
      begin
        for j := 0 to Table1.Fields.Count - 1 do
        begin
        if j = 7 then
          Cross.AddValue([i], ['CutsNo']{если здесь ввести что-то вроде [Table1.Fields[7].AsString], то новый столбец не создастся и 2-ва поля выведутся в один столбец}
  , [Table1.Fields[0].AsString]);
          Cross.AddValue([i], [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);
  	end;
        Table1.Next;
        Inc(i);
      end;
    end;
  end;
  

  
  Так, что придётся писать название столбца ручками.
• aRaLeKiN

  October 2005 отредактировано 14:41

  -=Den=-, спасибо!
  Реально помог. Конечно не удобный способ, но хоть что-то....
  хотя, думаю придется вообще отказаться от ручного заполнения... Так как столкнулся с дикими тормозами.... вот тут описал пробелему , но похоже с таким никто не сталкивался, а разработчики молчат....
  жаль...