如何在这个数据集返回值中 找到值

Question

DataM_A.QryTj.Close;
DataM_A.QryTj.SQL.Clear;
DataM_A.QryTj.SQL.Add('select job_no  from dbo.forwarder_bl');
DataM_A.QryTj.SQL.Add(' where bl_no='''+trim(DBEditBl_no.Text)+''';');
DataM_A.QryTj.Open;这个数据集会返回多个记录,我下面这个数据集去匹配是否有相同job_No记录
DataM_A.QryTmp.SQL.Add('select  vessel_code,voyage from forwarder_booking');
DataM_A.QryTmp.SQL.Add(' where  job_no='''+DataM_A.QryTj.FieldByName('job_no').AsString+''';');应该怎么做呢~！
由于这两个表不在一个服务器上，而且服务器是专业版不能做跨服务器查询，
能不能使用delphi提供的in 语句 或者其他方法？
                                   

Answer 1

尽量不要使用 while 
while i<=DataM_A.QryTj.RecordCount do

Answer 2

将第一个DataSet的字段值循环赋值为val1,val2,...格式的字符串然后再组合新的SQL语句就可以了

Answer 3

这和while循环有什么区别？我记得 in语句能做成 可是忘了怎么用了