主题：报表导出日期格式错误

以下代码：生成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

 

加上以下语句：帮助上有说明

测试可用，非常感谢，受教