- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]为DateTimePicker赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139629)
-- 发布时间：2019/8/17 16:09:00
-- [求助]为DateTimePicker赋值
我把日期控件的值保存为字符串，需要时再读取进来，报错是什么原因？
str要么是空值，要么是2019-2-16，只不过是字符型。
Dim str As String
If str <> "" Then
e.Form.Controls("DateTimePicker1").value = new Date(str)
End If
-- 发布时间：2019/8/17 16:26:00
--
Dim str As String = "从哪里读数据？"
msgbox(str) \'弹出有值吗？
If str <> "" Then
……
-- 发布时间：2019/8/17 18:59:00
--
弹出值了“2018-08-16”，这句代码报这个错：
e.Form.Controls("DateTimePicker1").value = new Date(str)
改成这样行：
e.Form.Controls("DateTimePicker1").value = str
此主题相关图片如下：截屏图片.jpg
[此贴子已经被作者于2019/8/17 19:27:50编辑过]
-- 发布时间：2019/8/18 20:08:00
--
e.Form.Controls("DateTimePicker1").value = CDate(str)