主题：从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

        Dim d As Date
        If Date.TryParse(sheet(0,0).text, d) Then
            dr("第一节") = d
        End If

 上传具体例子

 那贴出所有代码

 贴出你写的所有代码啊

 报什么错，原本导入的代码怎么写。

 

 要么贴出写的所有代码，要么上传具体例子

http://www.foxtable.com/help/topics/2334.htm