FastReport - 如何以表格形式顯示數據？

Question

如何以FastReport表的形式顯示數據？

編輯

我的意思是，我想創建這樣一個報表：（用表格形式）。

Answer 1

這將有可能使用Framing備忘錄的屬性。

Answer 2

使用FR嚮導

從FR文件菜單>新建>標準報表嚮導

當你達到「佈局」頁面最簡單的方法，選擇從佈局然後確定

表格

Answer 3

我認爲你需要自己構建網格。以下是一些構建網格佈局的代碼，以幫助您入門。您將需要調整列寬並添加格式化代碼（memo.frame）以獲得所需的外觀。

procedure CreateHeader(frxDataset: TfrxDBDataSet; Page: TfrxReportPage); 
var 
    i: Integer; 
    X, Y, ThisWidth: Extended; 
    HeaderMemo: TfrxCustomMemoView; 
    Column: TcxGridDBColumn; 
begin 
    Band := TfrxPageHeader.Create(Page); 
    Band.CreateUniqueName; 
    Band.SetBounds(0, 0, 0, fr01cm * 7); 
    Band.Height := edtHeightHeader.Value; 

    HeaderMemo := CreateMemo(Band); 
    HeaderMemo.SetBounds(0, 0, PageWidth, 0); 

    // Set memo style 
    // Or just add a frame HeaderMemo.Frame.... 
    HeaderMemo.Style := 'Header line'; 

    X := 0; 
    Y := 0; 

    Memo := CreateMemo(Band); 
    Memo.SetBounds(0, Y, X, fr01cm * 6); 
    Memo.Height := Band.Height - 1; 

    for i := 0 to pred(frxDataset.Fields.Count) do 
    begin 
    ThisWidth := 100; 

    Memo := CreateMemo(Band); 
    Memo.SetBounds(X, Y, ThisWidth, fr01cm * 6); 

    Memo.Text := frxDataset.Fields[i].FieldName; 

    // Set memo style 
    // Or just add a frame HeaderMemo.Frame.... 
    Memo.Style := 'Header'; 

    Memo.Height := Band.Height - 1; 

    X := X + ThisWidth; 
    end; 

    HeaderMemo.Height := Band.Height; 
end; 

procedure CreateFastReportDataBand(frxDataset: TfrxDBDataSet; Page: TfrxReportPage); 
var 
    i: Integer; 
    X, Y, ThisWidth: Extended; 
begin 
    Band := TfrxMasterData.Create(Page); 
    Band.CreateUniqueName; 
    Band.SetBounds(0, CurY, 0, 0); 
    Band.Height := edtHeightData.Value; 

    TfrxMasterData(Band).frxDataset := frxDataset; 

    X := 0; 
    Y := 0; 

    for i := 0 to pred(frxDataset.Fields.Count) do 
    begin 
    ThisWidth := 100; 

    Memo := CreateMemo(Band); 
    Memo.SetBounds(X, Y, ThisWidth, fr01cm * 5); 
    Memo.Dataset := frxDataset; 
    Memo.DataField := frxDataset.Fields[i].FieldName; 

    // Set memo style 
    // Or just add a frame HeaderMemo.Frame.... 
    Memo.Style := 'Data'; 

    Memo.Height := Band.Height - 1; 

    X := X + ThisWidth; 
    end; 
end; 

它應該工作正常，但我已經沒有機會，因爲從我的應用程序去耦它來測試。