Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]字符串导入到日期字段无效


  共有2339人关注过本帖树形打印复制链接

主题：[求助]字符串导入到日期字段无效
帅哥哟，离线，有人找我吗？
浙江仔
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		[求助]字符串导入到日期字段无效  发帖心情 Post By：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”的转换无效。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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为导入表的新增行
 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2016/7/20 16:51:00 [只看该作者]

谢谢，为什么直接CDate不行？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/20 16:52:00 [只看该作者]

 不是 2016-07-20 这样的格式，不能直接转。

 回到顶部
帅哥哟，离线，有人找我吗？
浙江仔
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00 		  发帖心情 Post By：2016/7/20 16:57:00 [只看该作者]

那我format之后好像也不行啊

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/20 16:58:00 [只看该作者]

 不是日期，肯定不行。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询