我有兩個DBGrid, 我要怎麼判斷使用者正在編輯哪個DBGrid?因為insert,delete,我只想做一個按鈕. 然後: OnClickInsertButton下 begin if ... then {這裡該怎麼寫? 謝謝!!} DB1.delete else DB2.delete; end;

DBGrid1.DataSource.DataSet.State:=DsEdit;//判斷編輯

引言: 我有兩個DBGrid, 我要怎麼判斷使用者正在編輯哪個DBGrid?因為insert,delete,我只想做一個按鈕. 然後: OnClickInsertButton下 begin if ... then {這裡該怎麼寫? 謝謝!!} DB1.delete else DB2.delete; end;

發表人 - chih 於 2003/04/07 12:24:17

引言: 我有兩個DBGrid, 我要怎麼判斷使用者正在編輯哪個DBGrid?因為insert,delete,我只想做一個按鈕. 然後: OnClickInsertButton下 begin if ... then {這裡該怎麼寫? 謝謝!!} DB1.delete else DB2.delete; end;

因為您要做Delete，所以無法用State去判斷。 用簡單一點的作法：

• 宣告一個private變數 s: word;

• procedure TForm1.DBGrid1Enter(Sender: TObject);
  begin
    s := 1;
  end;
  procedure TForm1.DBGrid2Enter(Sender: TObject);
  begin
    s := 2;
  end;
  

• OnClickInsertButton下
  begin
    if s = 1 then
      DB1.delete
    else if s = 2 then
      DB2.delete;
  end;
  

~小弟淺見，參考看看~

引言: OnClickInsertButton下 begin if ... then {這裡該怎麼寫? 謝謝!!} DB1.delete else DB2.delete; end;

嘩，不得了，使用者按 InsertButton 你卻 Delete 丫? 由於執行 ActiveDB = 'DB1'>所有 DBGrid 的 OnExit 事件共用這個程序

If ActiveControl.Name = 'InsertButton' then // 在按 InsertButton
  TDBGrid(Sender).DataSources.DataSet.Insert;
else if ActiveControl.Name = 'DeleteButton' then  // 在按 DeleteButton
  TDBGrid(Sender).DataSources.DataSet.Delete;
else
  exit; //若是其他的Control 則離開而不作下面 SetFocus
end;
TDBGrid(Sender).SetFocus; // Focus 回到那個 DBGrid

呵呵，給Channel快一步提出首個方法了 發表人 -

用 dsEdit 只能判斷一個 DBGrid 相關的 DataSet 是否在編輯狀態，卻不能判斷那個 DBGrid 是否正在編輯中。 若使用者編輯 DBGrid1 而沒有 post, 之後去編輯 DBGrid2, 按新增, 你的程式便會判別 DBGrid1 的 DataSet 在編輯狀態，然後在 DBGrid1 的 DataSet 新增記錄。 若使用者在 DBGrid1 Post 了後想新增一筆，按新增後你的程式會判別 不是 dsEdit 所以在 DBGrid2 新增資料 這就是你想要的嗎?