[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]

1. SQL:='SELECT * FROM Twn_k';
2. SQL:=SQL ' WHERE 開獎日期>=''' STDT ''' AND ';
3. SQL:=SQL ' 開獎日期<=''' ENDT ''' and 干支 like ''' kxa '%''';

------
.......

===================引 用 cat200188 文 章===================

1. SQL:='SELECT * FROM Twn_k';
2. SQL:=SQL ' WHERE 開獎日期>=''' STDT ''' AND ';
3. SQL:=SQL ' 開獎日期<=''' ENDT ''' and 干支 like ''' kxa '%''';

========>>>感謝 cat200188 你的指導，小弟問題已經解決了，原本問題是出在and 干支 like ''' kxa '% 非常謝謝！小弟又增進一點。