导入临时表，超过3万条出错提示。

qqqqq

sqlstr:='select * from '+frmsmain.curtable+' where PrimayGuid='+quotedstr('123456789');
      sql_import.close;
      sql_import.sql.clear;
      sql_import.sql.add(sqlstr);
      sql_import.open;
      k:=0;
      while not buf_import_onetable.EOF do
      begin
        try

          //超过三万条会出错　　
         if ((k mod 10000)=0)and(k>0) then   //每一万条滚动一次
         begin
           sql_import.ApplyUpdates ;
           frmsmain.SQLTran.CommitRetaining ;
         end;

         
          CreateGUID(guid1);
          sql_import.Append;
          sql_import.FieldByName('PrimayGuid').Value:=GUIDToString(guid1);   
          .....

          sql_import.Post ;

          inc(k);
        except
          memo1.Lines.add('数据导入第'+inttostr(k+1)+'条时失败;');
        end;

        buf_import_onetable.Next ;
        frmsmain.Progressstepby(PBar1) ;

        application.ProcessMessages ;
     end;                                 
           

qqqqq

添加　　
每万条滚动保存一次，问题解决。特此记录。