3层数据库上传后立刻下载,为什么需要2次或更多次的下载才可真正下载?sql2000+delphi7(100)

3层数据库上传后立刻下载,为什么需要2次或更多次的下载才可真正下载?sql2000+delphi7 代码如下: ==================================================================== procedure Tfmkaipiao.BUpLoadClick(Sender: TObject);//开票界面上传 begin if Cd1.ChangeCount=0 then exit; if not UpLoadShare() then exit;//公用上传 QStrSql:='select * from p'; cdsDownLoad(cd1,QStrSql,QCdsFileKaiPiao);//从远程服务器下载加载 cdsDownLoad(cd1,QStrSql,QCdsFileKaiPiao);//从远程服务器下载加载 end; =================================== function Tfmkaipiao.UpLoadShare():boolean;//公用上传 begin BSaveClick(nil); if not fmRDM.LinkRdb() then //连接远程数据库 begin result:=false; exit; end; Cd1.IndexDefs.Clear;//清除排序 cd1.ApplyUpdates(-1); cd1.EmptyDataSet;//清除ClientDataSet中的数据 //下载资料 害怕以后与远程数据库中断 无法连接 导致无法打印车单 //上传后可下载 BUpload.Enabled :=False;//置上传按钮不可用 result:=true; end; =============================== procedure cdsDownLoad(cds:TClientDataSet;sql,fileStr:string); //从远程服务器下载加载 begin cds.Close; cds.FileName:=''; cds.CommandText:=sql; //!!!服务器对应的DataSetProvider-options-poAllowCommandText=true cds.Open; cds.SaveToFile(fileStr); Cds.close; Cds.FileName:=fileStr;//string;//离线开票数据 Cds.open; end;