各位大大： DBGrid可否实现多个表头， 比如： 【    【   单 位 人 数 】  。。 。。        序号  【生产科 【 计划科】 1 【 3人 【 4 人 请问用DBGrid能实现上面这中功能吗？该怎么实现呢？ 刚才帖子放错地方了。。 谢谢！

zzmbeyond01 你好    請參考以下連結，使用SMDBGrid元件可以解決你的需求 http://delphi.ktop.com.tw/topic.php?topic_id=33751 來源：http://www.scalabium.com/smdbgrid.htm 下載：http://www.scalabium.com/download/smdbgrid.zip 範例：http://www.scalabium.com/download/smgrdemo.zip

谢谢Chance36大大！ 我再 问一下为什么我安装SMCmpntD6时（我用的delphi6）， ，编译时报错“期望Field或方法标识符”field or method identifier expected？ 这是为什么呢？    我发现凡是private的方法都通不过编译： unit LimitFrm;  

  
  property LimitEnabled: Boolean read FLimitEnabled write SetLimitEnabled default True;
    property HeightMin: Integer read FHeightMin write SetHeightMin default 0;
。。。
    property HeightMax: Integer read FHeightMax write SetHeightMax;
    property WidthMin: Integer read FWidthMin write SetWidthMin default 0;
    property WidthMax: Integer read FWidthMax write SetWidthMax;     

發表人 - zzmbeyond01 於 2004/02/27 00:30:33

zzmbeyond01 你好     由於該元件原始碼的內容，註解部份不知用的是什麼語言，所以'}'右括號與註解內容融合成一個中文字,造成左括號與另一段註解的右括號把真正程式碼部份也變成了註解，於是程式變的不完整了,當然編譯也不會過了。 你必須自行在真正註解部份，在少右括號的地方再補個右括號，才能讓程式碼還原，如下範例：(片段程式)

    SMPanel := TSMPanel(Reader.Parent);
end;    {盷謥鳱魬馲?嚦譇膻瓗 瞁歑鶐} <==
procedure TSMBox.MovePageUp;
var p: Pointer;
    n: Integer;
begin
  if (SMPanel <> nil) then
  begin
    n := SMPanel.FPages.IndexOf(Self);
    {囑錒 翴?嚦譇膻?鳹??嚦譇膻攡 櫇謼?, 襜 禖羻儰魺} <==
    if (n = -1) or (n = 0) then Exit;        with SMPanel do
    begin
      p := FPages[n-1];
      FPages[n-1] := FPages[n];
      FPages[n] := p;
      AlignPages;
    end;
  end;
end;    {盷謥鳱魬馲?嚦譇膻瓗 碴鳿}
procedure TSMBox.MovePageDown;
var p: Pointer;
    n: Integer;
begin
  if (SMPanel <> nil) then
  begin

看到了嗎？標示紅色部份的右括號，你必須遍覽程式碼，如上方式改正後才可正常編譯 ,過程中有些異常現象，讓你無法修改的話，可以用其他的文字編輯器來處理。 祝好運!!

Hi:    這一篇討論供你參考 http://delphi.ktop.com.tw/topic.php?topic_id=38801 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

多谢Chance36，也谢谢Fishman。