請問如何在dbgrid中,edit和post後,加一筆資料在後面的欄位呢?(這筆欄位在dbgrid是看不到的~用意是要知哪一個使用者修改資料) 我目前的寫法每次只能加LoginEmpId至我修改的第一第後最後一筆的Author,中間的都不會加(所以我不能去修改二筆以上的資料) 請幫我看看,謝謝 Author----變數要加的欄位 LoginEmpId----要加的變數 procedure TformAreaman.Button2Click(Sender: TObject);(按下edit時) begin query1.Edit; query1.FieldByName('Author').asstring := LoginEmpId; gridedit.SetFocus; end; procedure TformAreaman.Button1Click(Sender: TObject);(按下儲存後) var i : integer; begin query1.FieldByName('Author').asstring := LoginEmpId; query1.Post; showmessage('資料已儲存至資料庫'); end; 一顆待破繭而出的蛹 有一天將會變成天邊 飛舞的蝴蝶

------
一顆待破繭而出的蛹
有一天將會變成天邊
飛舞的蝴蝶

您好﹗    從您的貼文來看﹐在Edit按鈕和Post按鈕中的程式碼不是一樣的嗎﹖ 您可以這樣做﹐將加一個欄位值的動作放在Query元件的BeforePost事件中﹐在每筆資料Post之前﹐即會賦值給Author這個欄位﹕

begin
  Query1.FieldByName('Author').AsString := LoginEmpId;
end;

而在Edit按鈕和Post按鈕中﹐僅触發修改和儲存的方法﹐如下﹕

procedure TformAreaman.Button2Click(Sender: TObject);(按下edit時)
begin
  Query1.Edit;
end;    procedure TformAreaman.Button1Click(Sender: TObject);(按下儲存後)
begin
  Query1.Post;
  ShowMessage('資料已儲存至資料庫');
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

噢....可以了耶!! 大大感激~~ 偶像偶像^^ 一顆待破繭而出的蛹 有一天將會變成天邊 飛舞的蝴蝶

------
一顆待破繭而出的蛹
有一天將會變成天邊
飛舞的蝴蝶