起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 522|回复: 13

【搞定】保存时报这错 是为什么?**

[复制链接]
发表于 2007-3-27 18:24:14 | 显示全部楼层 |阅读模式
报错信息为:
invoke batch method error, error occur during invoke ApplyUpdates method, Record not found or changed by another user.
回复

使用道具 举报

发表于 2007-3-28 08:31:42 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-3-28 10:02:05 | 显示全部楼层
按照上面的要求做了 还是报这错,新增的时候没问题的 就是保存好之后再改就报这错 而且我全部都编译,迁入和刷新缓存过了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-3-28 14:28:30 | 显示全部楼层
???? 怎么还没回复?
回复 支持 反对

使用道具 举报

发表于 2007-3-28 14:50:49 | 显示全部楼层
你现在是以啥来更新的,就是Where后面是以哪些条件呢?就是主键吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-3-28 15:01:42 | 显示全部楼层
就是主建 这是为什么?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-3-28 16:38:43 | 显示全部楼层
????  等回音中
回复 支持 反对

使用道具 举报

发表于 2007-3-28 16:48:19 | 显示全部楼层
注意更新选项上要定义更新的where语句
或者你在Studio中复制一下这个数据集,然后贴到论坛上
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-3-28 17:24:16 | 显示全部楼层
object DataSetProjectTaskSet: TSQLDataSet
  Relation.DeleteRule = krNoAction
  Relation.UpdateRule = krNoAction
  UpdateOptions.DeleteSQL =
    'DELETE FROM BUP_PROJECTTASK'#13#10'WHERE  ( AutoIn = :OLD__AutoIn ) '#13#10 +
    ' AND  ( ContractNo = :OLD__ContractNo ) '#13#10' AND  ( BuildingID = :' +
    'OLD__BuildingID ) '#13#10' AND  ( LDID = :OLD__LDID ) '#13#10' AND  ( HouseI' +
    'D = :OLD__HouseID ) '#13#10' AND  ( ProjectType = :OLD__ProjectType ) ' +
    #13#10' AND  ( Status = :OLD__Status ) '#13#10' AND  ( PTNo = :OLD__PTNo ) ' +
    #13#10' AND  ( InputUser = :OLD__InputUser ) '#13#10' AND  ( InputDate = :O' +
    'LD__InputDate ) '#13#10' AND  ( BeginDate = :OLD__BeginDate ) '#13#10' AND  ' +
    '( EndDate = :OLD__EndDate ) '#13#10' AND  ( NeedFinDate = :OLD__NeedFi' +
    'nDate ) '#13#10' AND  ( FactFinDate = :OLD__FactFinDate ) '#13#10' AND  ( Si' +
    'gnDate = :OLD__SignDate ) '#13#10' AND  ( FactOutDate = :OLD__FactOutD' +
    'ate ) '#13#10#13#10
  UpdateOptions.Fields = <
    item
      Name = 'AutoIn'
      ProviderFlags = [pfInUpdate, pfInKey]
    end
    item
      Name = 'InputDate'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'BeginDate'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'EndDate'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'NeedFinDate'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'FactFinDate'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'SignDate'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'FactOutDate'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'ContractNo'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'BuildingID'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'LDID'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'HouseID'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'ProjectType'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'Status'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'PTNo'
      ProviderFlags = [pfInUpdate]
    end
    item
      Name = 'InputUser'
      ProviderFlags = [pfInUpdate]
    end>
  UpdateOptions.InsertSQL =
    'INSERT INTO BUP_PROJECTTASK'#13#10'( AutoIn , ContractNo , BuildingID ' +
    ', LDID , HouseID , ProjectType , Status , PTNo , InputUser , Inp' +
    'utDate , BeginDate , EndDate , NeedFinDate , FactFinDate , SignD' +
    'ate , FactOutDate ) '#13#10'VALUES ( :AutoIn , :ContractNo , :Building' +
    'ID , DID , :HouseID , rojectType , :Status , TNo , :InputU' +
    'ser , :InputDate , :BeginDate , :EndDate , :NeedFinDate , :FactF' +
    'inDate , :SignDate , :FactOutDate )'#13#10#13#10
  UpdateOptions.UpdateSQL =
    'UPDATE BUP_PROJECTTASK '#13#10'SET  AutoIn = :AutoIn  , '#13#10' ContractNo ' +
    '= :ContractNo  , '#13#10' BuildingID = :BuildingID  , '#13#10' LDID = DID ' +
    ' , '#13#10' HouseID = :HouseID  , '#13#10' ProjectType = rojectType  , '#13#10' ' +
    'Status = :Status  , '#13#10' PTNo = TNo  , '#13#10' InputUser = :InputUser' +
    '  , '#13#10' InputDate = :InputDate  , '#13#10' BeginDate = :BeginDate  , '#13#10 +
    ' EndDate = :EndDate  , '#13#10' NeedFinDate = :NeedFinDate  , '#13#10' FactF' +
    'inDate = :FactFinDate  , '#13#10' SignDate = :SignDate  , '#13#10' FactOutDa' +
    'te = :FactOutDate  '#13#10'WHERE  ( AutoIn = :OLD__AutoIn ) '#13#10' AND  ( ' +
    'ContractNo = :OLD__ContractNo ) '#13#10' AND  ( BuildingID = :OLD__Bui' +
    'ldingID ) '#13#10' AND  ( LDID = :OLD__LDID ) '#13#10' AND  ( HouseID = :OLD' +
    '__HouseID ) '#13#10' AND  ( ProjectType = :OLD__ProjectType ) '#13#10' AND  ' +
    '( Status = :OLD__Status ) '#13#10' AND  ( PTNo = :OLD__PTNo ) '#13#10' AND  ' +
    '( InputUser = :OLD__InputUser ) '#13#10' AND  ( InputDate = :OLD__Inpu' +
    'tDate ) '#13#10' AND  ( BeginDate = :OLD__BeginDate ) '#13#10' AND  ( EndDat' +
    'e = :OLD__EndDate ) '#13#10' AND  ( NeedFinDate = :OLD__NeedFinDate ) ' +
    #13#10' AND  ( FactFinDate = :OLD__FactFinDate ) '#13#10' AND  ( SignDate =' +
    ' :OLD__SignDate ) '#13#10' AND  ( FactOutDate = :OLD__FactOutDate ) '#13#10 +
    #13#10
  UpdateOptions.UpdateMode = upWhereKeyOnly
  BeforeInsert = DataSetProjectTaskSetBeforeInsert
  ID = 'ProjectTaskSet'
  DisplayName = #24037#31243#20219#21153#25968#25454#38598
  Database.Reference = 'Biz:\ZSGLXT\GOLDENBRIDGE.Database'
  CheckConstraints = <>
  Params = <>
  SQL.Text = 'SELECT *'#13#10'  FROM BUP_PROJECTTASK'
  Left = 146
  Top = 106
  object FIELD_ProjectTaskSet_AutoIn: TUserDataField
    ID = 'AutoIn'
    DisplayName = #31995#32479#32534#21495
    DataType = dtString
    DataTypeAttribute.Size = 32
    EditStyleID = 'String'
    AutoFillDef.Enabled = True
    AutoFillDef.Trigger = [ftOnInsert]
    AutoFillDef.Expression.Text = '&[Biz:\ZSGLXT\SystemParms.ParamGroup\Sys_Num.Param]'
    IsRequired = True
    StoredProps = {
      417474726962757465730D0A4175746F46696C6C4465660D0A456C656D656E74
      0D0A497352657175697265640D0A4C6F6F6B75704465660D0A4C6F6F6B757052
      6573756C740D0A}
  end
  object FIELD_ProjectTaskSet_Choice: TInternalDataField
    ID = 'Choice'
    DisplayName = #36873#25321
    DataType = dtInteger
    EditStyleID = 'CheckBox'
    Alignment = taLeftJustify
    AutoFillDef.Enabled = True
    AutoFillDef.Trigger = [ftOnInsert]
    AutoFillDef.Expression.Text = '0'
  end
end
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-3-28 17:24:48 | 显示全部楼层
复制了 各位老师给看一下 问题出在什么地方
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-12-28 18:16 , Processed in 0.039280 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表