ADOTable2.Filter:='year(cdt)=year(getdate()) and month(cdt)=month(getdate))

發文回覆瀏覽次數：1795

推到 Plurk!

推到 Facebook!

ADOTable2.Filter:='year(cdt)=year(getdate()) and month(cdt)=month(getdate))

答題得分者是：hagar

diashad
一般會員

發表：20
回覆：10
積分：6
註冊：2006-08-10

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-09-05 09:58:49

IP:202.173.xxx.xxx 訂閱

cdt是一個時間欄位,我要取出本年本月的資料,
ADOTable2.Filter:='year(cdt)=year(getdate()) and month(cdt)=month(getdate))'

但是老是提示錯誤,不知為何,請賜教

------
x

hagar
版主

發表：143
回覆：4056
積分：4445
註冊：2002-04-14

發送簡訊給我

#2 引用回覆回覆

發表時間：2007-09-06 20:57:35

IP:220.137.xxx.xxx 未訂閱

Filter DB Function
TADOTable OnFilterRecord 屬性來做吧

procedure TForm1.ADOTable2FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
var
dt: TdateTime;
y: string;
m: string;
begin
dt := ADOTable2.FieldByName('cdt').AsDateTime;
y := FormatDateTime('YYYY', Now);
m := FormatDateTime('MM', Now);

Accept := (FormatDateTime('YYYY', dt) = y) and (FormatDateTime('MM', dt) = m);
end;

編輯記錄

hagar 重新編輯於 2007-09-06 21:02:31，註解無‧

系統時間：2024-04-25 23:40:20

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！