以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从Excel文件导入表的问题。谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71010)
--  作者：zstk7333
--  发布时间：2015/7/3 9:59:00
--  从Excel文件导入表的问题。谢谢
从Excel导入表的过程中，有一个日期的单元格显示为"0000-00-00"，导入的时候总是提示“从类型“ ”到类型“Date”的转换无效”，求解，谢谢！ 其他单元格导入没有问题 表里的这一列设为日期时间列
[此贴子已经被作者于2015/7/3 10:00:16编辑过]
--  作者：大红袍
--  发布时间：2015/7/3 10:13:00
--  

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
--  作者：zstk7333
--  发布时间：2015/7/3 10:18:00
--  回复：（大红袍）Dim r As Row = Tables("订单").AddN...
比如：dr("第一节")＝sheet(0,0).text这种情况如何修改呢？谢谢??
--  作者：大红袍
--  发布时间：2015/7/3 10:19:00
--  
        Dim d As Date
        If Date.TryParse(sheet(0,0).text, d) Then
            dr("第一节") = d
        End If
--  作者：zstk7333
--  发布时间：2015/7/3 10:26:00
--  回复：（大红袍）     &nbs...
还是一样的提示呢
--  作者：大红袍
--  发布时间：2015/7/3 10:27:00
--  
 上传具体例子
--  作者：zstk7333
--  发布时间：2015/7/3 10:29:00
--  
以下是引用zstk7333在2015/7/3 10:26:00的发言：
还是一样的提示呢

--  作者：大红袍
--  发布时间：2015/7/3 10:30:00
--  
以下是引用大红袍在2015/7/3 10:27:00的发言：
 上传具体例子

--  作者：zstk7333
--  发布时间：2015/7/3 10:30:00
--  回复：（大红袍） 上传具体例子
用手机上的，暂时上传不了??
--  作者：大红袍
--  发布时间：2015/7/3 10:31:00
--  
 那贴出所有代码