甘特图报错，什么地方需要设置？**

hdwt

添加流程图，波特图，甘特图，选中流程后，流程图，波特图显示正常，甘特图也显示正常，在甘特图左面点一下，左面的内容就没了，并且报错。什么地方需要设置？

jiahaiming

不知楼主是怎么做的？

hdwt

直接加控件，后面加 ftvView.Flow:=nil;
        ftvView.Flow:=lFlow;
        fgtvView.Flow:=nil;
        fgtvView.Flow:=lFlow;
        fbtvView.Flow:=nil;
        fbtvView.Flow:=lFlow;
流程图跟波特图都显示正确。甘特图显示的时候，正确，点击下左面的，里面的任务，执行者就变成空的了，但时间还有。

hdwt

procedure TQXCX.TabSheet3Show(Sender: TObject);
var
  lFlowGuid:string;
  lFlow:TFlow;
begin
     dsb_LC.DataSet.Open;  
    lFlowGuid:= dsb_LC.DataSet.FieldByName('FFLOWGUID').AsString;
    if lFlowGuid.Length>0 then
    begin
      try
        if not Assigned(lFlow) then
          lFlow := TFlow.Create;
        Business.Model.Flow.Flow.FlowEngine.LoadFlow(lFlowGuid, lFlow);
        //显示流程图
        ftvView.Flow:=nil;
        ftvView.Flow:=lFlow;
        fgtvView.Flow:=nil;
        fgtvView.Flow:=lFlow;
        fbtvView.Flow:=nil;
        fbtvView.Flow:=lFlow;
      finally
        lFlow.free;
      end;
    end;
end;

jiahaiming

你是哪个版本？
把你的资源传上来看看吧。

hdwt

3002的版本

hdwt

帮忙看下，谢谢。

alang

fbtvView.Flow:=lFlow;
      finally
        lFlow.free;
用这个对象赋值以后，再释放这个对象，流程图中用到lFlow时候自然会报错了

lixy

业务模型\系统空间\用户界面基础\界面库\系统接口\流程浏览
调用这个看看刚才测试的流程是否正常，如果也是一样的，检查流程数据。

hdwt

解决了，谢谢。
可以结贴了。