with dsbMeeting.DataSet do
begin
lAppConnection := Connection;
FlowBroker.FlowControl.FlowManager.Transaction := lAppConnection.Transaction;
lTransactionHandle := lAppConnection.Transaction.Start(False);
if FlowBroker.FlowControl.FlowOut(nil) then
begin
Edit;
if FieldByName('MeetingKind').AsString = '01' then
FieldByName('State').AsString := '2'
else if FieldByName('MeetingKind').AsString = '02' then
FieldByName('State').AsString := '3';
Post;
ApplyUpdates(False);
[B] lAppConnection.Transaction.Commit(lTransactionHandle);//报错[/B]
end;
except
Cancel;
CancelUpdates(True);
lAppConnection.Transaction.Rollback(lTransactionHandle);
end;
end;