[code delphi]
procedure TTwn_lot_AnlyFm1.HemisphereButton1Click(Sender: TObject);
var STDT,ENDT,SQL:string;
KXA,KXA1:string;//天干組
KXD,KXD1:string;//地支組
I,J,N:Integer;
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 ''' and 干支 like ''' KXA '%''';
SqL1.SQL.ADD(SQL);
SqL1.OPEN;
SqL1.First;
WHILE NOT SqL1.EOF DO
BEGIN
KXA1:=COPY((SqL1.FIELDBYNAME('干支').Text),1,2);
if KXA = KXA1 Then
begin
DaS1.DataSet:=sql1;
end;
SqL1.Next;
end;
//========>分析地支段=======//
KXD:=Cobx_B4.Text;
SqL4.CLOSE;
SqL4.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 '''and 干支 like ''' KXD '%''';
SqL4.SQL.ADD(SQL);
SqL4.OPEN;
SqL4.First;
WHILE NOT SqL4.EOF DO
BEGIN
KXD1:=COPY((SqL4.FIELDBYNAME('干支').Text),3,4);
SHOWMESSAGE(KXD1);//不會執行
if KXD = KXD1 Then
begin
DaS4.DataSet:=sql4;
end;
SqL4.Next;
end;
end;

[/code]
====>>問題是前段干支 干支 like ''' KXA '%''' ok沒問題 ===>>後段 like ''' KXD '%''';就無法顯示?? 小弟無法理解？難道是程式寫法錯了嗎？請教各位前備..謝謝！

把組好的SQL 加到 MEMO 上面在去看哪邊有問題吧

------
======================
昏睡~
不昏睡~
不由昏睡~

===================引 用 ko 文 章===================
把組好的SQL 加到 MEMO 上面在去看哪邊有問題吧

===>>>小弟有用 Exploer 的 EnterSQL 執行 Select 開獎日期,干支 From Twn_k Where 干支 Like '_寅' 結果可以把相關的字串 甲寅 庚寅 丙寅....及日期列出很完整
===>>>請問 ko 先生 是否 like ''' KXD '%'''; 這行要加以修正呢?? 謝謝！

感謝 KO Sir 你的提示 小弟終於知道問題出在那? 
原來是 like ''' KXD '%'''; 這行在KXD前再加 % 就OK了 謝謝！