Problem with DBCrossView

Comments

• gordk St.Catherines On. Canada.

  October 2009 edited 8:55PM

  need to see the code.
  post it in the binaries news group.
• viper

  October 2009 edited 8:55PM

  Report create..
  

  Report := TfrxReport.Create(Self);
    Report.CreateUniqueName;
    Report.PreviewOptions.Buttons:=[pbPrint,pbExport,pbZoom,pbFind
        ,pbOutline,pbPageSetup,pbTools,pbNavigator,pbExportQuick];
    DataSet := TfrxDBDataset.Create(self);
    DataSet.Name := 'ReportDataset1';
    DataSet.DataSource := DatasourceX;
    Report.DataSets.Add(Dataset);
    DataPage := TfrxDataPage.Create(Report);
    Page := TfrxReportPage.Create(Report);
    Page.CreateUniqueName;
    Page.SetDefaults;
    Cross := TfrxDBCrossView.Create(Page);
    Cross.DataSet := DataSet;
    with Cross do
      begin
        CreateUniqueName;
        Top := 45;
        Left := 0;
        Width := 100;
        Height := 100;
        ShowTitle := False;
        ShowCorner := False;
        ShowColumnHeader := True;
        AutoSize := True;
        Border := True;
        DownThenAcross := False;
        RepeatHeaders := True;
        PlainCells := True;
        JoinEqualCells := False;
        ShowRowHeader := True;
        ShowColumnTotal := True;
        ShowRowTotal := True;
      end;
  

  
  Adding fields..
  

  cross.RowFields.Add(fieldname);
  cross.RowLevels := cross.RowFields.Count;
  
  .
  .
  .
  
  cross.CellFields.Add(fieldname);
  cross.CellLevels := cross.CellFields.Count;
  
  .
  .
  .
  
  cross.ColumnFields.Add(fieldname);
  cross.ColumnLevels := cross.ColumnFields.Count;
  
• gordk St.Catherines On. Canada.

  October 2009 edited 8:55PM

  2 things i see
  1 you should be adding your fields before the end; of the cross creation
  2 your levels need to be set correctly.
  here is a sample using the demodata crosstab.db
  
  procedure TForm1.Button5Click(Sender: TObject);
  var
  report:tfrxreport;
  dataset:tfrxdbdataset;
  datapage:tfrxdatapage;
  page:tfrxreportpage;
  cross:tfrxdbcrossview;
  begin
  Report := TfrxReport.Create(Self);
  Report.CreateUniqueName;
  Report.PreviewOptions.Buttons:=[pbPrint,pbExport,pbZoom,pbFind,pbOutline,pbPageSetup,pbTools,pbNavigator,pbExportQuick];
  DataSet := TfrxDBDataset.Create(self);
  DataSet.Name := 'ReportDataset1';
  DataSet.DataSource := reportdata.CrossSource;// linked to crosstab demo data in data module
  Report.DataSets.Add(Dataset);
  DataPage := TfrxDataPage.Create(Report);
  Page := TfrxReportPage.Create(Report);
  Page.CreateUniqueName;
  Page.SetDefaults;
  Cross := TfrxDBCrossView.Create(Page);
  Cross.DataSet := DataSet;
  with Cross do
  begin
  CreateUniqueName;
  Top := 45;
  Left := 0;
  Width := 100;
  Height := 100;
  ShowTitle := False;
  ShowCorner := False;
  ShowColumnHeader := True;
  AutoSize := True;
  Border := True;
  DownThenAcross := False;
  RepeatHeaders := True;
  PlainCells := True;
  JoinEqualCells := False;
  ShowRowHeader := True;
  ShowColumnTotal := True;
  ShowRowTotal := True;
  rowfields.Add('Name');
  rowlevels:=1;
  cellfields.Add('Salary');
  cellLevels := 1;
  columnfields.Add('Year');
  columnlevels:=1;
  end;
  report.showReport;
  end;
  
• viper

  October 2009 edited 8:55PM

  Thank you very much! " border="0" alt="laugh.gif" />" alt=">" />
• viper

  October 2009 edited October 2009

  When i add fields dynamically, DBCrossView doesn't appear in the report so i call this function
  
  

  ...
  Cross: TfrxDBCrossView;
  DataSet: TfrxDBDataset;
  ...
  procedure TReportMan.RefreshCross;
  begin
  
      Cross.DataSet := TfrxCustomDBDataSet(Dataset);
      Cross.RowLevels := Cross.RowFields.Count;
      Cross.ColumnLevels := Cross.ColumnFields.Count;
      Cross.CellLevels := Cross.CellFields.Count;
  end;
  

  
  and all works as i wish