主题：从Excel文件导入表的问题。谢谢

Dim r As Row = Tables("订单").AddNew()
For m As Integer = 0 To nms.Length - 1
    r(nms(m)) = Sheet(n,m).Value
Next

改成

Dim r As Row = Tables("订单").AddNew()
For m As Integer = 0 To nms.Length - 1
    If Tables("订单").Cols(nms(m)).IsDate Then
        Dim d As Date
        If Date.TryParse(Sheet(n,m).Value, d) Then
            r(nms(m)) = d
        End If
    Else
        r(nms(m)) = Sheet(n,m).Value
    End If
Next