Tfrxcrossview - добавить новые поле для строки

Комментарии

• gpi

  December 2008 отредактировано December 2008

  Заполняйте программно свойства кросса RowFields, RowLevels
  Например:

  var kros:TfrxDBCrossView;
  begin
  kros:=TfrxDBCrossView(frxreport1.FindObject('Dbcross1'));
  kros.ColumnFields.Clear;
  kros.ColumnFields.Add('Year');
  kros.ColumnFields.Add('Month');
  kros.CornerMemos[1].Text:='Test';
  kros.ColumnLevels := 2;
  kros.ColumnTotalMemos[1].Visible:=False;
  kros.RowFields.Clear;
  kros.RowFields.Add('Name');
  kros.RowLevels := 1;
  kros.CellFields.Add('Salary');
  kros.CellLevels := 1;
  kros.Dataset :=frxDBDataset1;
  frxReport1.ShowReport();
  end;
  
• dhel

  January 2009 отредактировано 19:15

  gpi написал: »

  Заполняйте программно свойства кросса RowFields, RowLevels

  
  Сделала, но: у меня будет kros.RowLevels := 2; при этом получается, что нет заголовка у второго столбца, и он получается белый, а не цветом стиля. И почему то если второй раз запускать отчет, то нормально не отстраивается, а получается строки друг на друга залазят, как в рисунке.
• gpi

  January 2009 отредактировано 19:15

  написал:

  если второй раз запускать отчет, то нормально не отстраивается, а получается строки друг на друга залазят, как в рисунке

  Забыл добавить kros.CellFields.Clear;

  написал:

  Сделала, но: у меня будет kros.RowLevels := 2; при этом получается, что нет заголовка у второго столбца, и он получается белый, а не цветом стиля

  var kros:TfrxDBCrossView;
  begin
  kros:=TfrxDBCrossView(frxreport1.FindObject('Dbcross1'));
  kros.ColumnFields.Clear;
  kros.ColumnFields.Add('Name');
  kros.CornerMemos[1].Text:='Name';
  kros.ColumnLevels := 1;
  kros.RowFields.Clear;
  kros.RowFields.Add('Year');
  kros.RowFields.Add('Month');
  kros.RowLevels := 2;
  kros.CornerMemos[3].Text:='Year';
  kros.CornerMemos[4].Text:='Month';
  kros.RowTotalMemos[1].Visible:=False;
  kros.CellFields.Clear;
  kros.CellFields.Add('Salary');
  kros.CellLevels := 1;
  kros.Dataset :=frxDBDataset1;
  frxReport1.ShowReport();
  end;
  
• dhel

  January 2009 отредактировано 19:15

  Спасибо, так отчет строится почти нормально.
  
  Осталась такая фича. У меня в отчете може быть или kros.RowLevels := 2 или kros.RowLevels := 1 в зависимости от параметра. Так вот если я строю сперва 2 то все ок, а потом 1 тоже ок, а потом 2, то получается, что нет заголовка у второго столбца, и он получается белый, а не цветом стиля, данные выводятся нормально. Я пробывала делать kros.CornerMemos[4].Clear; Не помогло.