其实这是个很简单的问题,你分2步做先看子查询有没有结果:
With adoquery1 do begin
close; //-强烈建议用quotedStr函数,句子清晰
sql.Text:='select d_id from hw_d where k_id='+quotedStr(kids);
open;
end;
如果确实有记录返回,再改SQL语句:
With adoquery1 do begin
close; //-强烈建议用quotedStr函数,句子清晰
sql.Text:='select gbxm from hw_gb where d_id in '
+'(select d_id from hw_d where k_id='+quotedStr(kids)+')';
open;
end;
如果还是没数据,说明你的数据库中本身就没有记录