小弟程式碼如下


[code delphi]
CommandText := 'SELECT CUSTOMER_SN FROM SAJET.G_SN_STATUS '
'WHERE SERIAL_NUMBER IN (''' StringReplace(Trim(Memo1.text), #13#10, ''',''', [Rfreplaceall]) ''') ';
Open;
Memo2.Text := csTemp.FieldByName('CUSTOMER_SN').AsString;
NEXT;
[/code]

在Memo1填入多筆SERIAL_NUMBER 但是Memo2只出現第一筆CUSTOMER_SN

是我那裏寫錯了嗎??

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

你的 while 在哪裡?

我改成這樣就可以了

Memo2.Lines.Add(csTemp.FieldByName('CUSTOMER_SN').AsString);

謝謝...

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet