with DataM_A.QryTmp do
begin
Close;
sql.Clear;
sql.Add('select ctn_no from in_ifcsum_empty');
sql.Add(' where ship_cor_code=''' trim(EditOperator.Text) '''');
open;
if not isempty then
begin
Label6.Caption:=inttostr(RecordCount);
DataM_A.QryTmp_c1.Close;
DataM_A.QryTmp_c1.SQL.Clear;
DataM_A.QryTmp_c1.SQL.Add('select * from ctn_in_out where ');
DataM_A.QryTmp_c1.SQL.Add(' ctn_no in (' sql.text ') ');
DataM_A.QryTmp_c1.Open;
End
End
我這個查詢是這樣寫的 就是說sql.text中的查詢被執行了兩次，能不能用資料集的一些功能使其只查一次，第二次就在其集合裡面找了，就想C#中DateSet的功能

使用次查詢方式
select * from ctn_in_out where ctn_no in (select ctn_no from in_ifcsum_empty where ship_cor_code=''' trim(EditOperator.Text) '")'

但先決條件, 這兩個Table 必須在同一個檔中(例如 mdf
===================引 用 懸崖邊的舞者 文 章===================
with DataM_A.QryTmp do
begin
Close;
sql.Clear;
sql.Add('select ctn_no from in_ifcsum_empty');
sql.Add(' where ship_cor_code=''' trim(EditOperator.Text) '''');
open;
if not isempty then
begin
Label6.Caption:=inttostr(RecordCount);
DataM_A.QryTmp_c1.Close;
DataM_A.QryTmp_c1.SQL.Clear;
DataM_A.QryTmp_c1.SQL.Add('select * from ctn_in_out where ');
DataM_A.QryTmp_c1.SQL.Add(' ctn_no in (' sql.text ') ');
DataM_A.QryTmp_c1.Open;
End
End
我這個查詢是這樣寫的 就是說sql.text中的查詢被執行了兩次，能不能用資料集的一些功能使其只查一次，第二次就在其集合裡面找了，就想C#中DateSet的功能

編輯記錄