|

楼主 |
发表于 2008-8-30 16:23:43
|
显示全部楼层
procedure TAuditCollarForm.FlowBrokerCalcProcCondition(Sender: TObject; Command: TCalcProcConditionCommand);
begin
Inherited;
Command.Accept :=False;
Command.Handled :=True;
if SysUtils.CompareText(Command.ProcCondition.ID, 'CONDITIONBRANCH')=0 then
begin
// Command.Handled:= True;
Command.Accept:= boolApply;
end
else if SysUtils.CompareText(Command.ProcCondition.ID, 'SFWGDZC')=0 then
begin
Command.Accept :=(dsbCollar.dataSet.FieldbyName('CollarType').AsString='A');
end;
end;
但是在执行时报错
|
|