Cross - Tab

Lam

Как динамически создать TfrxCrossView?

AlexTZ

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TfrxReportPage;
  v: TfrxDBCrossView;
begin
  frxReport1.Clear;
  frxReport1.DataSets.Add(ReportData.CrossDS);

  p := TfrxReportPage.Create(frxReport1);
  p.SetDefaults;
  p.Name := 'Page1';

  v := TfrxDBCrossView.Create(p);
  v.Name := 'Cross1';
  v.SetBounds(0, 0, 100, 20);
  v.DataSet := ReportData.CrossDS;
  v.RowFields.Add('Name');
  v.RowLevels := 1;
  v.ColumnFields.Add('Year');
  v.ColumnFields.Add('Month');
  v.ColumnLevels := 2;
  v.CellFields.Add('Salary');
  v.CellLevels := 1;
end;