各位好 !! 請各位 高手解答  THANKS    圖1:共有 101 個欄位(總合計) 圖2: (輸入欄位) EX.當USER在圖2 55欄位輸入時, 圖1總合計的 DBGRID焦點 也在 55欄位!! < >< >

看你的圖好像不是很清楚. 可以再敍述清楚一點嗎?

感謝 timhuang 的 回覆 圖1 dbgrid1 跟 圖2 dbgrid2 的 datasource 都不一樣 我的 意思是說 我想 保持兩個 dbgrid 的 欄位 保持一至 也就是說不管我 focus 在 dbgrid2 那一個欄位    dbgrid2 跟 dbgrid1 欄位 排列(名稱)都是一至    

您好﹗    請您將兩個DBGrid的Option屬性中的dgAlwaysShowSelection屬性值設定為True﹐以用作觀察兩個DBGrid的的當前欄位顯示﹒    在DataSource1元件（對應DBGrid1）的OnDataChange事件中﹕

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  DBGrid2.SelectedField := DBGrid1.SelectedField;
end;

當您在移動DBGrid1中的欄位時﹐DBGrid2中的欄位也會做對應的移動﹒ 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/09/24 14:19:04

------
忻晟

試試看 :

type DumClass=class(TCustomGrid);
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
  if TDBGrid(Sender).Name = 'DBGrid1' then begin
    DumClass(DBGrid2).FGridState := gsSelecting;
    DumClass(DBGrid2).FocusCell(DumClass(Sender).Col,DumClass(DBGrid2).Row,True);
    DumClass(DBGrid2).FGridState := gsNormal;
  end
  else begin
    DumClass(DBGrid1).FGridState := gsSelecting;
    DumClass(DBGrid1).FocusCell(DumClass(Sender).Col,DumClass(DBGrid1).Row,True);
    DumClass(DBGrid1).FGridState := gsNormal;
  end;
end;

DBGrid1 及 DBGrid2 的 OnColumnEnter 都可以接向此 Procedure.

我剛試了 cashxin2002 跟 Mickey 的 方法都沒法動耶 ??    一般情況 dbgrid1 & dbgrid2 的欄位 不一致 想得到的狀況,不管dbgrid2 怎樣移動dbgrid1 跟 dbgrid2一致 dbgrid1 dbgrid2

您好﹗    沒動﹖不會吧﹐小弟有試過無誤﹒ 小弟的測試環境如下﹕ 1﹒一個ADOTable元件（ADOTable1并通過ADOConnection元件正常連接上資料庫﹐處開啟狀態） 2﹒兩個DataSource元件（DataSource1和DataSource2）都連接上ADOTable11 3﹒兩個DBGrid元件（DBGrid1和DBGrid2）﹐分別對應DataSource1和DataSource2﹐并將其Option屬性中的dgAlwaysShowSelection屬性值設為True.    以上設定完成之后﹐即可在DBGrid1和DBGrid2中正常顯示同樣內容的資料﹐再將如下程式碼寫在DataSource1的OnDataChange事件中﹕

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  DBGrid2.SelectedField := DBGrid1.SelectedField;
end;

當您在移動DBGrid1的當前資料時﹐DBGrid2中的當前資料也會做對應的移動﹒小弟是以DBGrid1的移動來帶動DBGrid2的移動﹐看您的問題好像是當在DBGrid2中移動時帶動DBGrid1的移動﹐若是這樣的話﹐請您做适當的調整﹒ 小弟看您的貼圖中﹐似乎有整行選中的情況﹐請將DBGrid元件Option屬性中的dgRowSelection屬性值設為Flase. 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

感謝 cashxin2002 再次回覆 THANKS 可能是 我表達的 不清楚 !! 2﹒兩個DataSource元件（DataSource1和DataSource2）都連接上ADOTable11 DataSource1 使用 Query1 SQL 做 SUM 合計 DataSource2 連上 ADOTable1 當USER在dbgrid2 A055欄位輸入時, dbgrid1(合計) 的欄位 也在 A055 這樣 USER 就不用移動dbgrid1 游標移動到 A055 欄位了!! 希望 這樣表達 能 更清楚些!!

如果你希望的是, 二個 DBGrid, 的欄位完全一致...修改一下 :

type DumClass=class(TCustomGrid);
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var LC : integer;
begin
  LC:=DumClass(Sender).LeftCol;
  if TDBGrid(Sender).Name = 'DBGrid1' then begin
    DumClass(DBGrid2).FGridState := gsSelecting;
    DumClass(DBGrid2).FocusCell(DumClass(Sender).Col,DumClass(DBGrid2).Row,True);
    DumClass(DBGrid2).FGridState := gsNormal;
    DumClass(DBGrid2).LeftCol := LC;
  end
  else begin
    DumClass(DBGrid1).FGridState := gsSelecting;
    DumClass(DBGrid1).FocusCell(DumClass(Sender).Col,DumClass(DBGrid1).Row,True);
    DumClass(DBGrid1).FGridState := gsNormal;
    DumClass(DBGrid1).LeftCol := LC;
  end;
end;

感謝 Mickey 兄的 回覆!! 終於 解決 我的 問題了,真是太感謝 妳了 !!  < >< >