无法获取列数据types

我正在尝试通过以下代码来查找DateTime列。 我无法让代码工作。 我错过了什么吗？ 谢谢。

dGrid.DataSource = dSets.Tables(0) dGrid.DataBind() ws.Cells(1, 1).LoadFromDataTable(dGrid.DataSource, True) For i As Byte = 1 To dGrid.Columns.Count If dSets.Tables(0).Columns(i).DataType Is GetType(DateTime) Then ws.Column(i).Style.Numberformat.Format = "mm/dd/yyyy hh:mm" End If Next Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" Response.AddHeader("content-disposition"; attachment) Response.Charset = "" 

Answer 1

几乎在那里，但需要以下更改：

1. 从DataSource获取列计数。
2. 修正collections索引。

testing和工作：

 dataGrid.DataSource = dataSet.Tables(0) dataGrid.DataBind() ws.Cells(1, 1).LoadFromDataTable(dataGrid.DataSource, True) Dim data = dataGrid.DataSource ' get column count from DataSource: dGrid.Columns.Count is 0 Dim columnCount = data.Columns.Count For i = 0 To columnCount - 1 If data.Columns(i).DataType Is GetType(DateTime) Then ws.Column(i + 1).Style.Numberformat.Format = "mm/dd/yyyy hh:mm" End If Next 

Answer 2

尝试

 For i As Byte = 1 To dGrid.Columns.Count If dt.Columns[i].DataType Is GetType(DateTime) Then ws.Column(i).Style.Numberformat.Format = "mm/dd/yyyy hh:mm" End If Next