>>你监视它的DELTA数据了吗?
监视了,在客户端和APP SERVER端显示的结果都是对的,只是数据库中的结果不对。
下面的是监视客户端的。我监视的结果是对的,但它实际更新在数据库中的结果时
是不对的。。。
procedure TrdmPcAppSvr.dspInOutPutUpdateData(Sender: TObject;
DataSet: TClientDataSet);
begin
frmPcSvr.ClientDataSet1.data:=DataSet.data;
end;
上面的代码就是监视APP SERVER的,结果显示是对的。
procedure TDMPc.cdsPcExceptionAfterPost(DataSet: TDataSet);
var cdsMaster: TClientDataSet;
begin
inherited;
cdsMaster:=TClientDataSet(DataSet);
cdsDelta.Data:=cdsMaster.Delta;
// 这是监视客户端的。
while cdsMaster.DataSetField<>nildo
cdsMaster:=TClientDataSet(cdsMaster.DataSetField.DataSet);
cdsMaster.ApplyUpdates(0);
end;