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;