无法获取列数据类型

Not able to get column datatype

我正在尝试循环访问以下代码以查找 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 = ""

尝试

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

快完成了,但需要进行以下更改:

  1. DataSource 中获取列数。
  2. 修复集合索引。

已测试并正常工作:

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