怎么不对呢?
链接里的代码是这样的:
procedure TMainForm.FlowBrokerAfterFlowStartup(Sender: TObject; Command: TFlowStartupCommand);
begin
//改变入口环节的任务主题
with FlowBroker.FlowControl do
if CurrentProcUnit.IsStartupUnit then
begin
CurrentTask.Subject := dsbXASL.DataSet.FieldByName('AJMC').AsString +
':' + CurrentProcUnit.DisplayName;
CurrentTask.SaveToDB;
end;
end;