請教各位專家，在程式一開始執行時，利用adoquery1查詢所有資料show在dbgrid ， 再利用 adoquery2 查詢某一筆資料A是否存在 ， 請問如何做到 若 資料A 存在 ，將dbgrid 的 focus 設在資料A (dbgrid 的 datasouce 是 adoquery1 的情況下)

不知道這樣是不是你所要的

 
procedure TForm1.Button1Click(Sender: TObject);
var
  id:String;
begin
  with ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select menu_id from aa where menu_id=' Edit1.Text);
    Open;
    if not IsEmpty then
      ADOQuery1.Locate('menu_id',Fields[0].AsInteger,[]);
  end;
end;    procedure TForm1.FormShow(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from aa');
    Open;
  end;
end;    end.    

你好 應該可以用adoquery1.locate('key', adoquery2.fieldbyname('key').Asstrgin, []) 的方式處理!! Pillar Wang

------
Pillar Wang

感謝各位的解答，不好意思，再請教一個問題 如何利用一個button 呼叫dbgrid 的onmouseup 事件，去點選某筆record?