請教前輩為何無法運用Table 欄位的前一個中文比對? |
答題得分者是:cat200188
|
K1086
初階會員 ![]() ![]() 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
[code delphi] procedure TTwn_Lot_AnlyFm1.HemisphereButton1Click(Sender: TObject); var STDT,ENDT,SQL,KXA,KXB:string; begin KXA:= Cobx_B1.Text; SqL1.CLOSE; SqL1.SQL.Clear; STDT:=COPY(DATETOSTR(Date_1.Date),6,5) '/' COPY(DATETOSTR(Date_1.Date),1,4); ENDT:=COPY(DATETOSTR(Date_2.Date),6,5) '/' COPY(DATETOSTR(Date_2.Date),1,4); SQL:='SELECT * FROM Twn_k'; SQL:=SQL ' WHERE 開獎日期>=''' STDT ''' AND '; SQL:=SQL ' 開獎日期<=''' ENDT ''' '; SqL1.SQL.ADD(SQL); SqL1.OPEN; SqL1.First; WHILE NOT SqL1.EOF DO BEGIN KXB:=COPY((SqL1.FIELDBYNAME('干支').Text),1,2); if KXA <= KXB Then begin DaS1.DataSet:=sql1 end; SqL1.Next; end; end; procedure TTwn_Lot_AnlyFm1.SqL1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin ACCEPT :=Dataset['干支'] <> ' '; end; >>>問題是如此 Table 欄位(干支)存有甲子,乙丑....共六十組 >>>假設現在要以日期區間找尋任何干支有"甲"的秀在 Dbgred 因為六十組中有可能是甲子,甲辰,甲寅....等等 >>>現在小弟直接用KXA:= Cobx_B1.Text 下拉選擇比對方式,但卻無法達成目標,所以請教前備要如何修改程式才能達成,謝謝... [/code] |
cat200188
中階會員 ![]() ![]() ![]() 發表:37 回覆:78 積分:68 註冊:2005-01-18 發送簡訊給我 |
|
K1086
初階會員 ![]() ![]() 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
===================引 用 cat200188 文 章===================
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |