在处理人数据集的 OnSetFieldText事件里写
procedure TBizBASEINFO2.DataSetBizTaskExecutorsSetFieldText(DataSet: TDataSet; Field: TDataField; const Text: string);
begin
if not DataSet.ControlsDisabled then
begin
if not DataSetBizTaskData.Active then DataSetBizTaskData.Active := True;
if not (DataSetBizTaskData.State in DB.dsEditModes) then
begin
if DataSetBizTaskData.RecordCount > 0 then DataSetBizTaskData.Edit
else exit;
end;
DataSetBizTaskData.FieldByName('FChangeTime').AsDateTime := SysSrv.SysService.Time;
DataSetBizTaskData.Post;
end;
end;