我想在用ClientDataSet.ApplyUpdates之后在ClientDataSet.data中加入自已
的一些定制信息,然后将这个加了定制信息的data传到服务器后再分离出来。
这个怎么做呢?? ClientDataSet有没有现成的方法?

解决方案 »

  1.   

    TDataModule1.ClientDataSet1BeforeGetRecords(Sender: TObject; var OwnerData: OleVariant);
    begin
      with Sender as TClientDataSet do
      begin
        if not Active then Exit;
        OwnerData := '你的信息'; { Send last value of CUST_NO to application server }
      end;
    end;TRemoteDataModule1.DataSetProvider1BeforeGetRecords(Sender: TObject; 
                        var OwnerData: OleVariant);
    begin
      if not VarIsEmpty(OwnerData) then
      //做你的事,ownerdata就是你的信息end;
      

  2.   

    请问楼上,这样做,最后在服务器可以得到Data+我的定制信息
    也就是说,数据集+我的定制信息 么??
      

  3.   

    分开来的data-数据,你的定制信息在ownerdata中