【结贴】表格文档能设计成EXCEL分类汇总的样子吗？？？**

zfang

楼主，平台的计划中心底层是这样计算那个序号的
static function TPlanCode.GetPlanTreeCode(
  const APlanID, AParentPlanID: string): string;
const
  cSelect = 'SELECT * FROM TPlanTreeCode WHERE FPLANID = ''%s''';
var
  lQuery: TQuery;
  lSerial: Integer;
  lTreeCode: string;
begin
  if APlanID = '' then
  begin
    Result := '';
    Exit;
  end;

  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString := TPlanSpecialLogic.GetPlanConnectionString;
    if (AParentPlanID <> '') and (AParentPlanID <> JSConst.cRootID) then
    begin
      lQuery.CommandText := SysUtils.Format(cSelect, [AParentPlanID]);
      lQuery.Open;
      if (lQuery.RecordCount > 0) then
      begin
        lSerial := lQuery.FieldByName('FCHILDRENSERIAL').AsInteger + 1;
        lQuery.Edit;
      end
      else
      begin
        lSerial := 1;
        lQuery.Append;
        lQuery.FieldByName('FPLANID').AsString := AParentPlanID;
        lQuery.FieldByName('FTREECODE').AsString := AParentPlanID;
      end;
      lQuery.FieldByName('FCHILDRENSERIAL').AsInteger := lSerial;
      lQuery.ApplyUpdates;
      lTreeCode := SysUtils.Format('%s%.5d', [
        lQuery.FieldByName('FTREECODE').AsString, lSerial]);

      lQuery.Close;
    end
    else
      lTreeCode := APlanID;

    lQuery.CommandText := SysUtils.Format(cSelect, [APlanID]);
    lQuery.Open;
    if (lQuery.RecordCount > 0) then
    begin
      lQuery.Edit;
    end
    else
    begin
      lQuery.Append;
      lQuery.FieldByName('FPLANID').AsString := APlanID;
      lQuery.FieldByName('FCHILDRENSERIAL').AsInteger := 0;
    end;
    lQuery.FieldByName('FTREECODE').AsString := lTreeCode;
    lQuery.ApplyUpdates;
    Result := lTreeCode;
  finally
    lQuery.Free;
  end;
end;

-------------------------------------------
你可以参考着来，基本上就是本节点ID和本节点父ID来动态生成

op+

这个进度条怎么是怎么做的？，，好象不是一个字段的呢。。。。~~

zfang

楼主，计划中心的进度效果实现是自己画出来的，具体你看一下
业务模型\协同系统\计划\计划中心信息
DoTreeCustomDrawPercentCell
DoGridCustomDrawPercentCell

op+

最初由 zfang 发布
[B]目前平台的最新版本还是3108，没有做新的特性，基本上就是改缺陷，具体楼主可以看看相关的what's new（可以发support邮箱索取） [/B]

发下载地址到我们曹总的邮箱吧。还有最新的what's new我们也需要。
谢谢。

zfang

已经跟我们发版本的同事说了。

hyj

楼主，X3-3108版本下载地址+what's new已经发送到曹总邮箱中，请查收。

op+

最初由 zfang 发布
[B]抱歉，树形视图应该是datatreelist展现的。
计划中心的序号是根据计划表中的树形编码字段算出来的。 [/B]

邮件已经收到。谢谢 ~~

datatreelist的表头怎么使得它看不到 。还有就是分隔线怎么才能体现出来 ，为现在做的都看不到行跟行之间到 线。

zfang

表头，可以设置showheader属性

zfang

第二个问题设置属性：showgrid看看。

op+

谢谢。。楼上的问题已经解决，

如下图，怎么控制广西壮族自治区合计、桂林市小计and南宁市小计、七星城区小计  这3个级别中的各行字体颜色和背景颜色？？