[code delphi]
STDT:=COPY(DATETOSTR(Date_1.Date),6,5) '/' COPY(DATETOSTR(Date_1.Date),1,4);
QUERY2.Close;
QUERY2.SQL.CLEAR;
QUERY2.SQL.ADD('SELECT * FROM SHbNO WHERE ');
QUERY2.SQL.ADD('銷售日期<=''' STDT ''' ');
QUERY2.SQL.ADD(' ORDER BY 銷售日期 DESC');
QUERY2.OPEN;
QUERY2.First;
QUERY2.Next;
Lab_Day.Caption:=QUERY2.FIELDBYNAME('銷售日期').ASSTRING;
Led_G1.Caption:=QUERY2.FIELDBYNAME('一班').ASSTRING;
Led_G2.Caption:=QUERY2.FIELDBYNAME('二班').ASSTRING;
Led_G3.Caption:=QUERY2.FIELDBYNAME('三班').ASSTRING;
Led_G4.Caption:=QUERY2.FIELDBYNAME('四班').ASSTRING;[/code]

問題是這樣的因為要由 DateTimePicker1 下拉選擇值班日期 然後秀出前次有上班的 日期及 一 二 三 四班的名字,其中的問題就是不一定每天都有上班資料,所以說要由QUERY2.Next 之後再做判斷前一天有上班資料與否,假如有就秀出,如果沒有還要再往前推一天直到離分析日最近的一次上班日期為止.
===>>請問各位大師關於這種要如何寫出正確的判斷語法? 謝謝!

不曉得提問者是否已經找到問題的答案？
如果是離分析日最近的一次上班日的話，我大概會用
[code delphi]
QUERY2.SQL.ADD('SELECT Max(銷售日期) FROM SHbNO');
QUERY2.SQL.ADD(' WHERE 銷售日期<''' STDT ''' ');
QUERY2.SQL.ADD(' Group BY 銷售日期 ');
[/code]
直接取出最接近日期的上班日

------
努力學習中....

===================引 用 iann 文 章===================
不曉得提問者是否已經找到問題的答案？
如果是離分析日最近的一次上班日的話，我大概會用
[code delphi]
QUERY2.SQL.ADD('SELECT Max(銷售日期) FROM SHbNO');
QUERY2.SQL.ADD(' WHERE 銷售日期<''' STDT ''' ');
QUERY2.SQL.ADD(' Group BY 銷售日期 ');
[/code]
直接取出最接近日期的上班日

=======>>最近比較沒玩delphi 所以沒有注意到，有熱心的 Jann 幫忙小弟，真的謝謝你 我會依照語法去測試，希望能解決問題

不用客氣～～
我也是很久才來 Ktop 看一下...XD

------
努力學習中....