BathchMove实现数据导入为什么只能导入一条记录，求助！

Question

我的代码如下：请高手指点。qrydata.DatabaseName :='TEMP'; //源数据库名
tableout.DatabaseName :='audit';  //目标数据库名
bmvdata.Source :=qrydata;    //连接源数据库名
bmvData.Destination:=tableIn; //连接目标数据库名
bmvData.Mode:=batAppendUpdate;
pdList.add('PATH='+edtinpath.text);
session.DeleteAlias('Temp');
session.AddAlias('Temp','PARADOX',pdList);
session.GetTableNames('TEMP','',false,false,lsTabNm);for i:=0 to lstabnm.Count-1 do
begin
    strSql:='select * from '+lstabnm.Strings[i];
    with qrydata do
    begin
       close;
       sql.Clear;
       sql.Add(strSql);
       open;
   end;  if lstabnm.Strings[i]='BB_OUT1' then
       tableIn.TableName:=scheme+'.BB_SJHZ1'
  else if lstabnm.Strings[i]='BB_OUT2'  then
       tableIn.TableName:=scheme+'.BB_SJHZ2'
  else
  begin
     showmessage('数据源错误，请确认该数据源为导出数据');
     exit;
  end;
 bmvdata.Execute;
end;
showmessage('导入成功');其中BB_OUT2中有多条记录，但导入库中只有一条。