1、  之前的程序中實(shí)現(xiàn)分組編譯都是動(dòng)態(tài)生成SQL語(yǔ)句，到服務(wù)器執(zhí)行，然后顯示結(jié)果。現(xiàn)在用PivotGridEh，太方便了。但是在測(cè)試過(guò)程中費(fèi)了不少勁，自帶的例子很正常。經(jīng)過(guò)代碼跟蹤，發(fā)現(xiàn)是字段的Required應(yīng)該設(shè)置為false即可。解決辦法

要修改單元PivotGridEh中4個(gè)過(guò)程，分別是：

    PRocedure MakeColsTable;

    procedure MakeInverseGaussMatrix;

    procedure MakeResultAggrTable;

    procedure MakeRowsTable;

在數(shù)據(jù)集打開(kāi)之后，設(shè)置字段屬性Required := false;

如下：

  ColsTable.Open;

  for I := 0 to ColsTable.FieldCount - 1 do

    ColsTable.Fields[i].Required := False;

其它幾個(gè)過(guò)程參照上面代碼修改。

2、  給PivotGridToolBoxEh設(shè)置排列樣式

在基類(lèi)TCustomPivotGridToolBoxEh 的Create事件中添加如下代碼以創(chuàng)建右鍵菜單。

  FBuJuPM := TPopupMenu.Create(Self);

  FBuJuOne := TMenuItem.Create(FBuJuPM);

  FBuJuOne.Tag := 0;

  FBuJuOne.Caption := '上下排列';

  FBuJuOne.RadioItem := True;

  FBuJuOne.Checked := True;

  FBuJuOne.OnClick := self.BuJuPMClick;

  FBuJuPM.Items.Add(FBuJuOne);

  FBuJuTwo := TMenuItem.Create(FBuJuPM);

  FBuJuTwo.Tag := 1;

  FBuJuTwo.Caption := '左右排列';

  FBuJuTwo.RadioItem := True;

  FBuJuTwo.OnClick := self.BuJuPMClick;

  FBuJuPM.Items.Add(FBuJuTwo);

  self.PopupMenu :=FBuJuPM;

右鍵菜單事件代碼：

procedure TCustomPivotGridToolBoxEh.BuJuPMClick(Sender:TObject);

var

  tmpMI: TMenuItem;

begin

  tmpMI := TMenuItem(Sender);

  if tmpMI.Tag = 0 then

  begin

    FSplitter.SetBounds(0,10,2,8);

    FPivotDataPanel.Align := alBottom;

    FSplitter.Align := alBottom;

    FFieldListPanel.Align := alClient;

    self.Width := self.Width div 2;

  end

  else

  begin

    FSplitter.SetBounds(0,10,2,10);

    FPivotDataPanel.Align := alRight;//alBottom;

    FSplitter.Align := alRight;//alBottom;

    FFieldListPanel.Align := alClient;

    self.Width := self.Width * 2;

  end;

  tmpMI.Checked :=True;

end;

3、  增加樣式屬性

property BuJuCols: Integer read FBuJuCols write SetBujuColsdefault 1;

1=默認(rèn)的一列樣式，2=兩列顯示，這樣字段比較多時(shí)，可以顯示更多的字段以方便操作。

事件代碼如下：

procedureTCustomPivotGridToolBoxEh.SetBujuCols(const Value: Integer);

begin

  FBuJuCols := Value;

  if Value = 1 then

    BuJuPMClick(FBuJuOne)

  else

    BuJuPMClick(FBuJuTwo);