試著使用Filter, 從Edit傳入條件. procedure TForm1.ExcuteClick(Sender: TObject); var s:string; begin with TB_rpr_cus do begin s:=''; filtered:=False; //if ED_rpr_cus_type.text <> '' then //s:=s 'rpr_cus_type=' Quotedstr(ED_rpr_cus_type.text); //if ED_rpr_cus_credit_limit.text <> '' then //s:=s '(rpr_cus_credit_limit >' ED_rpr_cus_credit_limit.text ')'; s:=s '(rpr_cus_open_date > ' datetostr(datetimepicker1.Date) ')'; showmessage(s); //end; filter:=s; filtered:=True; end; end; 用文字或數字時都沒問題, 日期欄位就無法作用了. 出現下面的錯誤訊息, --------------------------- Test_project1 --------------------------- DBISAM Engine Error # 10051 Filter error for the table 'rpr_cus' - Expected NULL, Date, or Timestamp expression but instead found / in filter expression at line 1, column 29. --------------------------- 確定 --------------------------- 只能請假各位先進了, 謝謝.

hi,jonatc1: 使用filter的功能,會受限於後端資料庫的種類,且filter本身所提供的功能也較少.如果你要使用特殊的條件設定的話,建議使用TDataSet.OnFilterRecord來做.用法一樣由filtered觸發,只是是否過濾就可以由你自己寫code完全控制. 參考看看