盒子论坛 v2.1

我需要在远程数据模块中实现,当销售表更新的时候,根据其更新种类,对库存表进行更新."删除"和"新添"部分都经测试可以了,就是"编辑"的部分不行,请各位大虾帮帮忙.谢谢!!下面是我源代码.
"Data_3.db"是库存表
所有用的数据组件的"UpdateMode"都是"wherekeyonly"

procedure TYuYue_RDM_Server.Stock_I_Table_DAfterUpdateRecord(
  Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind);
begin
  {更新"Data_3"的库存}
  self.Update_Data_3.Close;
  Case UpdateKind Of
    ukModify:{编辑}
      begin
        self.Update_Data_3.SQL.Clear;
        self.Update_Data_3.SQL.Add('Update "data_3.db" Set kc=kc+:Editkc where id=:D3ID');
        self.Update_Data_3.Prepare;
        self.Update_Data_3.ParamByName('Editkc').AsSmallInt:=(DeltaDS.Fields[4].NewValue-DeltaDS.Fields[4].OldValue);
        self.Update_Data_3.ParamByName('D3ID').AsSmallInt:=DeltaDS.Fields[2].Value;
      end;
    ukInsert: {删除}
      begin
        self.Update_Data_3.SQL.Clear;
        self.Update_Data_3.SQL.Add('Update "data_3.db" Set kc=kc-:Delkc where id=:D3ID');
        self.Update_Data_3.Prepare;
        self.Update_Data_3.ParamByName('Delkc').AsSmallInt:=DeltaDS.Fields[4].Value;
        self.Update_Data_3.ParamByName('D3ID').AsSmallInt:=DeltaDS.Fields[2].Value;
      end;
    ukDelete: {新添}
      begin
        self.Update_Data_3.SQL.Clear;
        self.Update_Data_3.SQL.Add('Update "data_3.db" Set kc=kc+:Addkc where id=:D3ID');
        self.Update_Data_3.Prepare;
        self.Update_Data_3.ParamByName('Addkc').AsSmallInt:=DeltaDS.Fields[4].Value;
        self.Update_Data_3.ParamByName('D3ID').AsSmallInt:=DeltaDS.Fields[2].Value;
      end;
    end;
  self.Update_Data_3.ExecSQL;

----------------------------------------------
-

作者：

haikely (阿)	★☆☆☆☆	-
	盒子活跃会员

2003/7/19 9:31:13

1楼：

UkModify一直无法被触发,有谁知道为什么吗???
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/7/29 6:48:37

2楼：

我也想知道哪里出错了，但我也解决不了
你自己解决了吗？
如果解决可以贴出正确答案吗？谢谢！
----------------------------------------------

信息

登陆以后才能回复