老师参照你的指导 我操作了如下Dim e As RequestEventArgs = args(0)
Dim nms() As String = {"获奖者","性别","获奖名称","授奖单位","获奖时间"}
Dim cmd As New S QLCommand
cmd.Conn ecti
cmd.Comm andText = "Sel ect 获奖者, 性别, 获奖名称,授奖单位,获奖时间 From {表彰} "
Dim dt As DataTable = cmd.ExecuteReader
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For c As Integer = 0 To nms.Length - 1
Sheet(0, c).Value = nms(c)
Next
For r As Integer = 0 To dt.DataRows.Count - 1
For c As Integer = 0 To nms.Length - 1
Sheet(r + 1, c).Value = dt.Datarows(r)(nms(c))
Next
Next
book.PreBuild = False '非报表模请将PreBuild 属性设置为False
e.WriteBook(book,"表彰.xls",True)
可以实现表彰表的导出了 但是获奖时间列没有正确显示数据表中的内容
显示录入如下格式 有没有修正的方法呢？ 数据表中的时间如2021-02-09 00:00:00
| 获奖时间 |
| 44255 |
| 44240 |
| 44202 |
| 44236 |
加好友 
发短信
Post By：2021/2/24 15:48:00 [只看该作者]
