主题：[求助]导出表以后日期乱码

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim dt As Table = Tables("检测维修单_Table1")

    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

    Book.Save(dlg.FileName)

End If

直接是全导的，没用模板