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

系统里面的表，年份的开头 20 不显示
If e.Col.name = "日期列年份的20不显示" AndAlso e.text > "" Then
    e.text = Format(cdate(e.text), "yy-MM-dd")
End If

用excle模板，分组统计报表
导出excle的日期，年开头的20不能隐藏，要导出的excle年份的20也隐藏，怎么实现？求助

<format([日期列], "yy-MM-dd")>，在实际项目中，如果日期列为空，导出显示为0.00，这个问题怎么修复呢》？

 

如果同时要实现：

1、分组橙色序号排序+1，模板怎么修改呢？

2、每个橙色分组行上面都显示蓝色区域列标题，模板怎么修改呢？

 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目2.zip

版本过高，打不开。

我这边的版本是7月9日的版本，不能升级了，

辛苦坛主，转一个底版本了

 

此主题相关图片如下：加密狗到期不能升级.jpg

 DrawCell里面设置了，单元格样式，多种颜色，下面导出excle表，颜色不能显示，
要导出excle单元格背景色，下面代码怎么修改呢？

Dim Book As New XLS.Book(ProjectPath & "Attachments\我的项目分组统计.xls")
            'Dim fl As String = ProjectPath & "Reports\施工图版物料的封面.xls"
            Dim fl As String = "D:\我的项目分组统计.xls" '指定目标文件
            Book.Build() '生成细节区
            Book.Save(fl) '保存工作簿
            Dim Proc As New Process '打开工作簿
            Proc.File = fl
            Proc.Start()

Dim Book As New XLS.Book(ProjectPath & "Attachments\我的项目分组统计.xls")
            'Dim fl As String = ProjectPath & "Reports\施工图版物料的封面.xls"
            Dim fl As String = "D:\我的项目分组统计.xls" '指定目标文件
            Book.Build() '生成细节区
            Book.Save(fl) '保存工作簿

上面保存后，怎么把系统里的单元格颜色，设置过来呢？
要实现导出 单元格颜色，同时导出的是：上楼的分组统计excle模板，坛主出手帮帮了

Dim t As Table = Tables("室内设计项目")
Dim file As String = "d:\我的项目分组统计.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
t.SaveExcel(file,t.name,flg)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange

    app.visible = True

坛主，

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

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

也就是绿色的下面，增加灰色区域3行列标题

 

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

 坛主，12 楼的代码 分组汇总后，下面的行数据排序有误，怎么排除分组行后，按排序列排序呢？

我项目对8列里面的值设置了 类似下列 数字，进行排序
 r("排序") = "101,201,301,401,5001,601,701,801"

想排除不是 分组行时执行：  Tables("室内设计项目").Sort="排序"
   If r.IsGroup '如果不是分组行， 代码怎么修改呢？

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
Tables("室内设计项目").Sort="片区总城市项目状态排序"

 

分组统计的同时，按上面黄色代码的列排序，上面代码怎么修改呢？谢谢啊

加了上面黄色的代码，分组统计失效

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:4排序.foxdb

 谢谢 坛主老师
还有一个问题请教：  分组行的颜色要自定义的话，增加一句什么代码呢？