【结帖】请教**

weirongjia

简表和详表  台帐  三个表 台帐是和详表一一对应的
然后在页面上只输入简表和详表的数据  是想在详表数据每写一个  然后台帐也对应的生成一个

我在业务信息里写的代码如下：
unit FPRKD;

interface

uses
  Business.System, Business.Model, Business.Data,Business.Forms.Dialogs;

type
  TFPRKD = class(TInfo)
    DataSetJB: TSQLDataSet;
    DataSetXB: TSQLDataSet;
    DataSetTZ: TSQLDataSet;
    DataSetWZKC: TSQLDataSet;
    FIELD_XB_WZMC: TLookupCalcField;
    FIELD_XB_GGXH: TLookupCalcField;
    FIELD_XB_JLDW: TLookupCalcField;
    FIELD_XB_RKDXBBM: TUserDataField;
    FIELD_JB_RKDBM: TUserDataField;
    FIELD_TZ_TZBM: TUserDataField;
    FIELD_JB_JSFSBM: TUserDataField;
    FIELD_XB_SL: TUserDataField;
    FIELD_XB_HKDJ: TUserDataField;
    FIELD_JB_FPRQ: TUserDataField;
    FIELD_TZ_FSRQ: TUserDataField;
    procedure DataSetXBAfterPost(DataSet: TDataSet);
  private
    {private declarations}
  public
    {public declarations}
    constructor create();
    destructor destory();
  end;

  var fprk:TFPRKD;

implementation
constructor TFPRKD.create();
  begin
    DataSetXB.Create(self);
    DataSetJB.Create(self);
    DataSetTZ.Create(self);
    DataSetWZKC.Create(self);
    inherited;
  end;

  destructor TFPRKD.destory();
  begin
    DataSetWZKC.Free;
    DataSetTZ.Free;
    DataSetJB.Free;
    DataSetXB.Free;
    inherited;
  end;

procedure TFPRKD.DataSetXBAfterPost(DataSet: TDataSet);
begin
    showmessage('abc');
    datasettz.Append;
    datasettz.FieldByName('pzbm').AsString:= datasetjb.FieldByName('rkdbm').AsString;
    datasettz.FieldByName('wzbm').AsString:= datasetxb.FieldByName('wzbm').AsString;
    datasettz.FieldByName('sfbz').AsString:= '0';
    datasettz.Post;
end;

end.


为什么台帐的数据保存不上？？
感觉详表的afterpose事件好像没有执行
我是用的表格文档  然后点击编辑表格
然后在里面输入数据后  然后点击保存
然后再查看数据库  数据库里面只有简表详表的数据 台帐表是空的
我在afterpost事件处设置了个断点  
在编辑表格状态下  输入数据后  断点好像没有任何反应
我想问下  是程序什么地方有错 还是我的断点设置的有问题
为什么数据会保存不上？？

weirongjia

谁会？？ 给解释下吧  谢谢了！！
困惑好几天了   在线等

zfang

你这样子，把1楼的代码写在数据导航栏的保存动作里看看。
我估计是你编辑数据集后没有执行数据集的post，然后导致没有执行到那段代码。

zfang

具体的动作事件可以在论坛里以：BeforeAction搜索。

weirongjia

那个数据集的post方法不是在页面自己执行的么？？
数据导航栏的保存动作  我在什么地方可以找到？？

zfang

看图
具体代码 论坛里找

weirongjia

数据导航栏在什么地方找到？？

zfang

你是不是没有运行功能而直接在表格文档的编辑里做的啊？那样的话代码是无效的。

weirongjia

问题已解决
在表格编辑的时候是不会执行代码事件的

zfang

好，谢谢反馈。