如何通過查詢資料然后向DBGrid一條一條增加資料，我弄了一個Edit，然后里面輸入文本后通過Keypress事件將查詢結果顯示在
DBGrid里，但是只能顯示一條，我想查一次增加一條，不知道應該怎么實作。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
sqlStr1: string;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select Iden,GK_NO,Raw_NO, Load_Date,convert(varchar(10),getdate(),120) as [列印日期] From [ArtDB].[dbo].[arFabLib] where GK_NO=''' + Edit1.Text + '''';
ADOquery1.Open;
end;
uj5u.com熱心網友回復：
關鍵是使用“記憶體表”將你用Query讀入的內容，Append到記憶體表；
而DBGrid連到記憶體表（而不是你原本那個query），如此即可。
至于記憶體表怎么實作？
請百度搜 TClientDataSet 記憶體表
即可獲得你要的答案。
uj5u.com熱心網友回復：
LS 正解!意思就是把你原來那個 query 只當查詢用...將其每次的查詢結果 Append 至當數據內存表的 TClientDataSet 堆積...供 DBGrid 顯示之用......
另外補充 : 使用 TClientDataSet 在軟件配置時需伴著 midas.dll 才能運作...可以 user 配置 MidasLib 單元便可排除伴著 midas.dll......
uj5u.com熱心網友回復：
DBGrid對應一個資料集，向資料集中插入資料 即可。uj5u.com熱心網友回復：
查詢一個資料集，dbgrideh一個資料集就可以啊轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/90338.html
標籤：語言基礎/算法/系統設計
下一篇：【delphi開發】—論業余時間