我的代码如下：  
      dm.ClientDataSet9.Close;  
      dm.ClientDataSet9.CommandText:='';  
      dm.ClientDataSet9.CommandText:='select   xh,newfile   from   yL_XX_userinf';  
      dm.ClientDataSet9.Open;  
      dm.ClientDataSet9.Edit;  
      mystream   :=   TMemoryStream.Create;  
      mystream.loadfromfile(GetCurrExeDIR+'TCKWJ_YL.exe');  
      mystream.seek(0,soFromBeginning);  
      UpdataNewFile.LoadFromStream(myStream);//在这里又出错了不能加载进数据库，提示'xh      
                                                                                        out   of   range'(xh时标的主键)  
      dm.ClientDataSet1.FieldByName('VerNumber').asCurrency   :=   (VerServer+0.1);  
        dm.ClientDataSet1.ApplyUpdates(-1);