以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表导出日期格式错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24157)
--  作者：szp2012
--  发布时间：2012/10/6 1:14:00
--  报表导出日期格式错误

以下代码：生成excel 日期列变为 整数格式

      41121
   实际应为 2012-7-31     请教如何修正

Dim V1 As List(Of String)=DataTables("销售").GetUniqueValues(" [部门] Like \'公司*\' " , "经手人")
For Each YWY As String In V1

Tables("销售").filter="经手人=\'" &YWY &"\'"
Dim dt As Table = Tables("销售")
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next
Next
Sheet.name="销售"
\'打开工作簿
Dim SC As String = "c:\\reports\\" &YWY & ".xls"
Book.Save(SC)

next

 
--  作者：y2287958
--  发布时间：2012/10/6 6:52:00
--  
加上以下语句：帮助上有说明

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



建议多看帮助说明
--  作者：szp2012
--  发布时间：2012/10/6 12:24:00
--  
测试可用，非常感谢，受教