CLRModel错误

danceyoung

version3002
请教：
流程的初始功能，流转--刷新数据，就报这个Access  address  CLRModel 错误了。
我这个初始功能，在流转后，并没有关闭。
相关代码如下。
流转后代码：
procedure TMAINFORM.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
   canEditExp:string;


begin
    canEditExp:=TSQLDataSet(self.DataSetBroker1.DataSet).CanEditExpression.Text;
    if self.DataSetBroker1.DataSet.FieldByName('examStatus').AsString = '2' then
    begin

       TSQLDataSet(self.DataSetBroker1.DataSet).CanEditExpression.Text:='examStatus=''2''';
    end;
     self.DataSetBroker1.DataSet.Edit;
     self.DataSetBroker1.DataSet.FieldByName('examStatus').AsString :='4';

     self.DataSetBroker1.DataSet.FieldByName('saleIsAgree').Clear;
     self.DataSetBroker1.DataSet.FieldByName('saleMgr').Clear;
     self.DataSetBroker1.DataSet.FieldByName('mgrOpn').Clear;
     self.DataSetBroker1.DataSet.FieldByName('mgrDate').Clear;

     self.DataSetBroker1.DataSet.FieldByName('bizWhetherAgree').Clear;
     self.DataSetBroker1.DataSet.FieldByName('bizExamPerson').Clear;
     self.DataSetBroker1.DataSet.FieldByName('bizExamOpinion').Clear;
     self.DataSetBroker1.DataSet.FieldByName('bizExamDate').Clear;
     self.DataSetBroker1.DataSet.FieldByName('managerWhetherAgree').Clear;
     self.DataSetBroker1.DataSet.FieldByName('managerExamPerson').Clear;
     self.DataSetBroker1.DataSet.FieldByName('managerExamOpinion').Clear;
     self.DataSetBroker1.DataSet.FieldByName('managerExamDate').Clear;

     self.DataSetBroker1.DataSet.Post;
     //mcsun 090913 改为（false），流转单据时，偶尔报“正在提交”。
     self.DataSetBroker1.DataSet.ApplyUpdates(false);
    TSQLDataSet(self.DataSetBroker1.DataSet).CanEditExpression.Text:=canEditExp;
    Command.FuncTerminate :=false;



     FRelatedID:= self.DataSetBroker1.DataSet.FieldByName('guid').AsString;
     FStage:='商务初审';
     signedBy:= self.DataSetBroker1.DataSet.FieldByName('auditPerson').DisplayText;
     remark:=  self.DataSetBroker1.DataSet.FieldByName('auditOpinion').AsString;
     result:=  self.DataSetBroker1.DataSet.FieldByName('whetherAudit').DisplayText;
     date:=   self.DataSetBroker1.DataSet.FieldByName('auditDate').AsDateTime;
    TPUBLICUTILS.InsertSignRecord(FRelatedID,FStage,signedBy,remark,result,date);

    //InsertSignRecord(FRelatedID:string;FStage:string;signedBy:string;remark:string;result:string;dateouble);
end;
刷新代码：
procedure TMAINFORM.DataNavigator1AfterAction(Sender: TObject);
begin
     if (Sender as TBizDataSetAction).ID = bizactnconsts.ActionDataSetRefresh then
     begin
         self.DataSetBroker2.DataSet.Refresh;
         self.DataSetBrokerCM.DataSet.Refresh;
     end;
end;。
这个问题也不是经常出项。但是有问题，客户用着不舒服啊。
谢谢。

danceyoung

顶！
我顶！
我再顶！
我用力顶！
我很用力顶！
我非常用力顶！
我用尽全力去顶！
就算鞋子烂也要顶！
就算腾讯倒闭也要顶！
就算天塌下来我都要顶！
要是天真塌下来了继续顶！
要是地面凹了我不管继续顶！
要是踩到我脚骨折我也继续顶！
要是别人见了骂我傻我还是要顶！
要是警察敢过来阻止我就更加要顶！
要是你看我不爽我没办法还要继续顶！
要是你觉得敢兴趣你也可以过来一起顶！
顶到地下水喷发造成洪灾损失惨重我也顶！
顶到日本地震山崩地裂地下水泛滥我还要顶！
顶到火山喷发太平洋海啸我还要继续往死里顶！
顶到阎罗王说我制造噪音我刁根烟看看他继续顶！
顶到日天昏地暗惊天地泣鬼神我不管我还要继续顶！
顶到刚刚重建好的伊拉克房屋又倒塌了我不管还要顶！
顶到日本岛所有导弹由于震波影响而突然自爆我还要顶！
顶到正在坐飞机去日本嫖娼的水扁大哥坠机身亡我还要顶！
顶到在富士山上面的拉登同志被山上滑坡石头砸死我还要顶！

zfang

1、是否可以流转后关掉界面
2、想办法重现一下，否则不好去跟踪问题。

danceyoung

"1、是否可以流转后关掉界面"
当然不可以（客户要求）。
复现很难，看代码能看出什么吗。

zfang

1楼的代码看不出来什么问题，都是你在组织你的数据。
1楼的错误是否在调试阶段出现过？最好是能调试跟一下