主题：[求助]如何用代码控制日期列输出的格式

你想得太复杂了,日期控制代码根本不需要,只要把模板的日期单元格式设置为需要的日期格式就可以了.

在模板中设置日期格式可以达到这个效果。

自己顶一下

你用代码再怎么设置,只要你套用了模板,就以模板的格式为最后标准,所以.....

我试过加代码不能控制使用模板输出XLS的日期列格式。

我是给这段帮助说明吸引过来的：

 

你如果细心的话，你会发现生成的Excel文件中，日期列内容全变成了数字。
你可以在Excel中手工将日期列的格式设为日期型，但这不是一个好方法。
最好是修改上面的导出代码，在打开工作簿的代码之前插入下面几行：

Dim St2 As XLS.Style = Book.NewStyle
St2.Format = "yyyy-MM-dd"
Sheet.Cols(dt.Cols("日期").Index).Style = st2

 

如果确实不行，狐表的这段帮助文档，应加一句“此方法不适合用于使用模板输出Excel文件”。

不知狐爸能否看到？

 回复6楼，代码先后的问题。你应该在等报表build以后再设置excel的style的，保证有效。

回复七楼，这三句代码（定义dt可以放在最前面）我已测试放在不同的位置，都无效。

一楼有例子，能不能帮我测试一下。

 

 

改成这样也无效：

 Book.Build() '生成细节区
 Dim Style As XLS.Style = Book.NewStyle '定义新样式
 Style.Format = "yyyy-MM-dd"
 Sheet.Cols(dt.Cols("制单日期").Index).Style = Style

 Book.Save(fl) '保存工作簿

 需要这样改

 

    Book.Build() '生成细节区
    Dim Style As XLS.Style = Book.NewStyle '定义新样式
    Style.Format = "yyyy-MM-dd"
    Sheet = Book.Sheets(0)
    For i As Integer = 2 To sheet.Rows.Count - 1
        sheet(i,dt.Cols("制单日期").Index).style = style
    Next
    Book.Save(fl) '保存工作簿

可以了，非常感谢！

最好把9楼的代码补充到帮助文档中。