主题：[求助]关于读取Excel 日期问题

r("日期") = Forms("窗口").Controls("TextBox1").value

日期是有两个的,所以在获取了Excel文件的日期之后,要把数据添加到窗口的Table中,提示不能转换为Date的错误

数据库中的数据类型是date类型,请问要怎么改?有多个日期的时候取第一个日期就行

此主题相关图片如下：1.png

'''   '这行代码一定要写
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

甜大,看不懂代码,照着你的做了,但是.....还是取不到日期 

此主题相关图片如下：1.png

注意2楼的红色代码

http://www.foxtable.com/webhelp/scr/1273.htm