【结帖】oa收文意见**

rzport_gongyu

我们在考虑能否 用3个临时字段  然后给他们指定相应意见

Akon

那如果用临时字段可以的话，也行，有结果了反馈一下。

rzport_gongyu

用临时字段确实能实现但需要写比较麻烦的事件代码。后来我们在文书那里改变了显示方式 意见一个 答复类型一个 让它自动增长 ，然后在后面功能窗体的 onshow事件上
procedure TMainForm.BizFormShow(Sender: TObject);
begin
    DataSetBroker1.DataSet.Append;
    StoredProc1.Params.ParamByName('v_bh').AsString:=DataSetBroker1.DataSet.FieldByName('bh').AsString;
    StoredProc1.Params.ParamByName('v_lb').AsInteger:=1;
    StoredProc1.Params.ParamByName('v_dflb').AsString:='01';
    StoredProc1.Execute;
    DataSetBroker1.DataSet.FieldByName('lb').AsInteger := 1;
    DataSetBroker1.DataSet.FieldByName('xh').AsInteger:=StoredProc1.Params.ParamByName('v_xh').AsInteger;
    DataSetBroker1.DataSet.FieldByName('dflb').AsString := '01';
    DataSetBroker1.DataSet.FieldByName('czz').AsString := 'test';
end;
以上是事件代码  。序号用了一个存储过程。
后面的表中的意见都 只用 那2个字段。
现在实现了。 结一下贴。