- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于读取Excel 日期问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107131)
-- 发布时间：2017/9/21 18:13:00
-- [求助]关于读取Excel 日期问题
r("日期") = Forms("窗口").Controls("TextBox1").value
日期是有两个的,所以在获取了Excel文件的日期之后,要把数据添加到窗口的Table中,提示不能转换为Date的错误
数据库中的数据类型是date类型,请问要怎么改?有多个日期的时候取第一个日期就行
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2017/9/21 18:30:00
--
\'\'\' \'这行代码一定要写
Dim str As String = Forms("窗口").Controls("TextBox1").value \'"2017-09-21、2017-08-11”
Dim d As Date
If Date.TryParse(str.split("、")(0),d) Then
r("日期") = d
End If
-- 发布时间：2017/9/21 19:28:00
-- 还是取不到日期
甜大,看不懂代码,照着你的做了,但是.....还是取不到日期
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2017/9/21 21:02:00
--
注意2楼的红色代码
http://www.foxtable.com/webhelp/scr/1273.htm