各位大大好！小弟來麻煩各位了！我寫了個程式，內容是做東西被借出的動作！ 在我依財產編號搜尋到資料後，按借出的按鈕，結果DBGrid理所查詢到的資料就不見了 而我再重開啟程式執行查詢剛剛借出的資料，在欄位裡是有顯示"借出中"，可是我是希望 可以變成我按借出按鈕後，即可在DBGrid裡看到該筆資料顯示"借出中"，請各位先進教導 謝謝！下列是寫在該按鈕的程式碼： procedure TForm1.Button1Click(Sender: TObject); begin If ComboBox1.Text='財產編號' Then begin MyQuery1.SQL.Text:='Update assets SET status=''借出中'' WHERE asset_id=''' Edit1.Text ''''; Edit2.Text:=MyQuery1.SQL.Text; MyQuery1.Execute; end Else If ComboBox1.Text='財產名稱' Then begin MyQuery1.SQL.Text:='Update assets SET status=''借出中'' WHERE asset_name=''' Edit1.Text ''''; Edit2.Text:=MyQuery1.SQL.Text; MyQuery1.Execute; end end;

您好﹗    如果DBGrid是連接到MyQuery1的話﹐請改成如下試試﹕

procedure TForm1.Button1Click(Sender: TObject);
begin
  If ComboBox1.Text='財產編號' Then
    MyQuery1.SQL.Text:='Update assets SET status=''借出中'' WHERE asset_id='''+Edit1.Text+''''
  Else If ComboBox1.Text='財產名稱' Then
    MyQuery1.SQL.Text:='Update assets SET status=''借出中'' WHERE asset_name='''+Edit1.Text+'''';
  Edit2.Text:=MyQuery1.SQL.Text;
  MyQuery1.Execute;
  MyQuery1.Close;
  MyQuery1.SQL.Clear;
  MyQuery1.SQL.Add('Select * From assets');
  MyQuery1.Open;
  MyQuery1.Locate(ComboBox1.Text, Edit1.Text, [loCaseInsensitive]); 
end;

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

------
忻晟

引言: 各位大大好！小弟來麻煩各位了！我寫了個程式，內容是做東西被借出的動作！ 在我依財產編號搜尋到資料後，按借出的按鈕，結果DBGrid理所查詢到的資料就不見了 而我再重開啟程式執行查詢剛剛借出的資料，在欄位裡是有顯示"借出中"，可是我是希望 可以變成我按借出按鈕後，即可在DBGrid裡看到該筆資料顯示"借出中"，請各位先進教導 謝謝！下列是寫在該按鈕的程式碼： procedure TForm1.Button1Click(Sender: TObject); begin If ComboBox1.Text='財產編號' Then begin MyQuery1.SQL.Text:='Update assets SET status=''借出中'' WHERE asset_id=''' Edit1.Text ''''; Edit2.Text:=MyQuery1.SQL.Text; MyQuery1.Execute; end Else If ComboBox1.Text='財產名稱' Then begin MyQuery1.SQL.Text:='Update assets SET status=''借出中'' WHERE asset_name=''' Edit1.Text ''''; Edit2.Text:=MyQuery1.SQL.Text; MyQuery1.Execute; end end;

不知道你在"財產編號搜尋"是如何下SQL的?是否與update共用同一個query, 還是查詢是一組query, 更新是一組query 你試著在借出後下 DBGRID1.ReFresh更新即可!

P.D.大大您好！我是查詢一個SQL，借出一個SQL，使用的是同一個DBGrid。而我照大大說的，加了DBGRID1.ReFresh，我改的方法如下： procedure TForm1.Button1Click(Sender: TObject); begin If ComboBox1.Text='財產編號' Then begin MyQuery1.SQL.Text:='Update assets SET status=''借出中'' WHERE asset_id=''' Edit1.Text ''''; Edit2.Text:=MyQuery1.SQL.Text; MyQuery1.Execute; DBGrid1.Refresh; end Else If ComboBox1.Text='財產名稱' Then begin MyQuery1.SQL.Text:='Update assets SET status=''借出中'' WHERE asset_name=''' Edit1.Text ''''; Edit2.Text:=MyQuery1.SQL.Text; MyQuery1.Execute; DBGrid1.Refresh; end end; 不知道對不對，而我有想要加在end;的上面，可是不能執行，請大大教導！

謝謝各位大大，小弟解決了，謝謝！