过各录入数据集,代码实现如下:procedure TGCLR_XX.FIELD_GCLR_SJJ_OPINIONINFOIDButtonClick(Sender: TObject);
var
lOpinionInfoID: String;
begin
DataSetGCLR_SJJ.open;
DataSetPJLB.Open;
lOpinionInfoID := TPJXXXZ_SXCT.GetOpinionID(Context);
if lOpinionInfoID <> '' then
begin
DataSetGCLR_SJJ.Edit;
DataSetGCLR_SJJ.FieldByName('opinionInfoId').AsString := lOpinionInfoID;
end;
end;
procedure TGCLR_XX.FIELD_GCLR_SJJ_CONPROIDButtonClick(Sender: TObject);
var
lConProId: String;
begin
lConProId := TXZCBSXMGX.GetConProId(Context);
if lConProId <> '' then
begin
DataSetGCLR_SJJ.Edit;
DataSetGCLR_SJJ.FieldByName('conProId').AsString := lConProId;
end;
end;