以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]字符串导入到日期字段无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87828)

--  作者:浙江仔
--  发布时间:2016/7/20 16:42:00
--  [求助]字符串导入到日期字段无效
根据表中数据匹配数据,导入另外一个表,原字符串导入到日期字段,这么写有错误,怎么改?

Dim str1 As String =Tables("tb_specop").Rows(i1)("有效期从")  \'此字段字符串为"20160502"
Dim d1 As Date = CDate(str1)
r("ISSUE_DATE")= d1   \'r为导入表的新增行

从字符串“20091015”到类型“Date”的转换无效。
--  作者:大红袍
--  发布时间:2016/7/20 16:49:00
--  
Dim str1 As String =Tables("tb_specop").Rows(i1)("有效期从")  \'此字段字符串为"20160502"
Dim d1 As Date = new date(str1.SubString(0, 4), str1.SubString(4, 2), str1.SubString(6, 2))
r("ISSUE_DATE")= d1   \'r为导入表的新增行

--  作者:浙江仔
--  发布时间:2016/7/20 16:51:00
--  
谢谢,为什么直接CDate不行?
--  作者:大红袍
--  发布时间:2016/7/20 16:52:00
--  
 不是 2016-07-20 这样的格式,不能直接转。
--  作者:浙江仔
--  发布时间:2016/7/20 16:57:00
--  
那我format之后好像也不行啊
--  作者:大红袍
--  发布时间:2016/7/20 16:58:00
--  
 不是日期,肯定不行。