我在客户端按下ApplayUpdate(-1)后。 在中间层的DataProvder的OnUpdateData里写了如下代码

procedure TFDM_BASE.DspCustSortCodeUpdateData(Sender: TObject;
  DataSet: TCustomClientDataSet);
begin
  inherited;
  with DataSet do
  begin
    First;
    while not Eof do
    begin
      if UpdateStatus = usInserted then
      begin
        Edit;
        FieldByName('UpBuildTime').AsDateTime := Now();
        Post;
      end;
      Next;
    end;
  end;
end;

我想把中间层对数据所做的修改(即UpBuildTime)在客户端更新数据后可以看到对UpBuildTime做的改动。 發表人 - DKSoftCHS 於 2004/08/18 08:09:37

1.如果想在AP端改值後，Client會自動合併新值，做法如下 首先將DataSetProvider的Options的poPropogateChanges設成True 接著在BeforeUpdateRecord/AfterUpdateRecord事件中將新值寫回欄位(TField)的NewValue(像你寫在OnUpdateData事件中恐怕是不行的請改寫在BeforeUpdateRecord，且BeforeUpdateRecord每異動筆就呼叫一次所以可以把while控制拿掉) 請參考http://delphi.ktop.com.tw/topic.php?TOPIC_ID=46216

 
eg.
procedure TFDM_BASE.DspCustSortCodeBeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind; var Applied: Boolean);
var currTime:TDateTime;
begin
 if UpdateKind= ukInsert then
 begin
  currTime := Now;
  DeltaDS.FieldByName('UpBuildTime').AsDateTime := currTime;
  DeltaDS.FieldByName('UpBuildTime').NewValue := currTime; 
 end;
end;

2.另外一種比較簡單但較沒效率的作法就是你每次client異動一筆資料後馬上下ApplyUpdate並接著執行RefreshRecord 混心雜欲 棄修身~唉 發表人 - speedup 於 2004/08/18 09:23:02 [ 發表人 - speedup 於 2004/08/18 09:30:22 發表人 - speedup 於 2004/08/18 09:31:44

------
唉~

speedup，谢谢你的回答，我试试

speedup,谢谢你的回答，已经可以了。

 
引言:
1.如果想在AP端改值後，Client會自動合併新值，做法如下
首先將DataSetProvider的Options的poPropogateChanges設成True
接著在BeforeUpdateRecord/AfterUpdateRecord事件中將新值寫回欄位(TField)的NewValue(像你寫在OnUpdateData事件中恐怕是不行的請改寫在BeforeUpdateRecord，且BeforeUpdateRecord每異動筆就呼叫一次所以可以把while控制拿掉)
請參考http://delphi.ktop.com.tw/topic.php?TOPIC_ID=46216    eg.
procedure TFDM_BASE.DspCustSortCodeBeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind; var Applied: Boolean);
var currTime:TDateTime;
begin
 if UpdateKind= ukInsert then
 begin
  currTime := Now;
  DeltaDS.FieldByName('UpBuildTime').AsDateTime := currTime;
  DeltaDS.FieldByName('UpBuildTime').NewValue := currTime; 
 end;
end;    2.另外一種比較簡單但較沒效率的作法就是你每次client異動一筆資料後馬上下ApplyUpdate並接著執行RefreshRecord    混心雜欲 棄修身~唉    發表人 - speedup 於 2004/08/18 09:23:02 [    發表人 - speedup 於 2004/08/18 09:30:22    發表人 - speedup 於 2004/08/18 09:31:44

procedure TFDM_BASE.DspCustSortCodeBeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind; var Applied: Boolean);
var currTime:TDateTime;
begin
 if UpdateKind= ukInsert then
 begin
  currTime := Now;
  DeltaDS.Edit;
  DeltaDS.FieldByName('UpBuildTime').AsDateTime := currTime;
  DeltaDS.FieldByName('UpBuildTime').NewValue := currTime; 
  DeltaDS.Post;
 end;
end;

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.