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

从Excel导入表的过程中，有一个日期的单元格显示为"0000-00-00"，导入的时候总是提示“从类型“ ”到类型“Date”的转换无效”，求解，谢谢！ 其他单元格导入没有问题 表里的这一列设为日期时间列

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

比如：dr("第一节")＝sheet(0,0).text这种情况如何修改呢？谢谢??

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

还是一样的提示呢

 上传具体例子

用手机上的，暂时上传不了??

 那贴出所有代码