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

要在你excel模板那里写公式，如

<format([日期列], "yy-MM-dd")>

beforeBuild事件 vars("idx") = 0

buildGroupHeader事件 vars("idx") += 1

http://www.foxtable.com/webhelp/scr/1953.htm

无法导出样式的。

生成报表后，用xls.book重新打开重新设置样式。

无法直接设置。

一个一个重新设置才行

http://www.foxtable.com/webhelp/scr/1148.htm

http://www.foxtable.com/webhelp/scr/1146.htm

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
Dim idx As Integer = 1
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        r("项目信息_项目总") = idx
        r("设计任务要求_省份") = t.Rows(i+1,True)("设计任务要求_省份")
        r("设计任务要求_城市") = t.Rows(i+1,True)("设计任务要求_城市")
        r("设计任务要求_项目名称") = t.Rows(i+1,True)("设计任务要求_项目名称")
        idx += 1
    End If
Next

你生成excel文件之后，再打开excel文件，插入你需要的内容，学习一下vba的控制

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
Dim idx As Integer = 1
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        r("项目信息_项目总") = "分组行-" & idx
        r("设计任务要求_省份") = t.Rows(i+1,True)("设计任务要求_省份")
        r("设计任务要求_城市") = t.Rows(i+1,True)("设计任务要求_城市")
        r("设计任务要求_项目名称") = t.Rows(i+1,True)("设计任务要求_项目名称")
        idx += 1
    End If
Next

Dim flg As New SaveExcelFlags
flg.CellStyle = True
t.SaveExcel("d:\test.xls", "test", flg)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("test")
Dim urg = ws.UsedRange
Dim Rg As MSExcel.Range = Ws.Rows("1:2")  '以这个指定的单元格为基准

For i As Integer = urg.Rows.count To 3 Step -1
    Dim c = ws.cells(i, 1)
    If c.text.startswith("分组行-") Then
        c.value = c.text.replace("分组行-", "")
        Dim nr = ws.Rows(i+1)
        rg.copy
        nr.EntireRow.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)'在基准单元格上面插入一行
       
    End If
Next
Rg.Delete(MSExcel.XlDirection.xlUp) '下面的单元格上移

App.Visible = True

自定义排序

在默认情况下，Subtotal方法会根据分组列进行排序，然后再生成汇总模式。
Subtotal有一个可选参数，如果将其设置为True，那么在生成汇总模式时，可以自定义排序参数，而不是根据分组列排序。
例如根据日期和客户排序，分组列为客户，统计列为数量与金额，生成汇总模式：

Dim t As Table = Tables("订单")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum 
g.GroupOn = "客户"
g.TotalOn = "数量,金额" 
g.Caption = "{0} 小计" 
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" 
g.TotalOn = "数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Sort = "日期,客户" '指定排序字段
t.Subtotal(True) '生成汇总模式

参考 http://www.foxtable.com/webhelp/scr/1577.htm

设置 小计行0、小计行1、小计行2 的样式即可。

直接在表格设置也行 http://www.foxtable.com/webhelp/scr/0016.htm