我在表單上放置一個tedit的元件(假設這個元件表示為客戶簡稱),當user每key一個字時,在右邊則開一個dbgrid元件會顯示剛才有所keyin有關的客戶資料所有資料,不知用什麼方式可以做到.

若您想key一個字母後過濾的話如下 procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin if table1.FieldByName('category').AsString=edit1.text then accept:=true else accept:=false; end; procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin datasource1.DataSet.close; datasource1.DataSet.open; end; 「堅持」從洗馬桶做起 Aric 若您的資料是整筆的客戶名的話 小弟會新建一個新的暫存table 且建一button 當使用者keyin完後按button(判斷有無此筆資料 當在來源資料table中找到edit中的客戶名 ps：一般用tquery來比對 就insert此資料到暫存table中 此table是連到您想show給使用者看的dbgrid) 當然還得要加一個取消所有選擇資料的button 按下去後是刪除所有暫存table 的資料 發表人 - huangeider 於 2003/11/24 12:38:46

謝謝您的指點. 不過我想要的不是這樣的,比方說我在edit1的元件key了一串字,不論是中英文,只要key下任一個字(假設key的字是"b"),我希望在edit1旁邊會立即顯示以b開頭的所有資料,不是"b"開頭的則不要顯示.

您好﹗    從Edit元件輸入的內容來即時判斷﹐并顯示對應的資料﹐可考慮將查詢的程式碼寫在Edit元件的OnChange事件中﹐以ADOQuery資料集元件為例﹐DBGrid元件通過DataSource元件正常連接上ADOQuery對應的資料表﹐先不要Open﹐程式碼如下﹕

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From 資料表名稱 Where ');
  ADOQuery1.SQL.Add('欄位名 Like ''' Edit1.Text ''' ''%''');
  //上句Like子句處也可寫成﹕ Like ''' Edit1.Text '%'''
  ADOQuery1.Open;
end;

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/11/24 18:46:40

------
忻晟