主题：[求助]导出exlce年份20不显示，怎么实现？

坛主，

1、汇总模式最左边显示为 序号数量 1 2 3 4，下面代码怎么修改呢？

2、如果分组行位于数据之上，每个分组行后面都插入列标题，，下面代码怎么修改呢？

下面代码，汇总模式表单元格DrawCell里面的颜色，可以导出到excle表

Dim t As Table = Tables("室内设计项目")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "设计任务要求_项目名称"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
r("设计任务要求_省份") = t.Rows(i+1,True)("设计任务要求_省份")
r("设计任务要求_城市") = t.Rows(i+1,True)("设计任务要求_城市")
r("设计任务要求_项目名称") = t.Rows(i+1,True)("设计任务要求_项目名称")
    End If
Next

此主题相关图片如下：提问.png