- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何批量更改DateTimePicker的日期啊？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177991)
-- 发布时间：2022/6/14 9:16:00
-- 如何批量更改DateTimePicker的日期啊？
无论怎么改，DateTimePicker" & i 的“年月日”都是系统当前的日期。
DateTimePicker" & i 是time格式（只显示时间），但是保存的时候想把年月日也存上啊。
If e.Form.Controls("录入日期").value <> Nothing
Dim Day As Date =e.Form.Controls("录入日期").value \'只包括日期
For i As Integer= 1 To 11
Dim Time As Date = "#" & DataTables("时间表").find("名称=\'time"& i &"\'")("时间") & "#"
Dim DayTime As Date = Day & " " & Time \'同时包括日期和时间
e.Form.Controls("DateTimePicker" & i).value= DayTime
messagebox.show(e.Form.Controls("DateTimePicker" & i).value) 值显示是08:00,12:00等，没有年月日。如果数据直接保存到列中，显示的年月日是系统当前的年月日啊。
Next
End If
[此贴子已经被作者于2022/6/14 9:23:09编辑过]
-- 发布时间：2022/6/14 9:34:00
--
Dim Day As Date =e.Form.Controls("录入日期").value \'只包括日期
msgbox(day)
For i As Integer= 1 To 11
Dim Time As Date = "#" & DataTables("时间表").find("名称=\'time"& i &"\'")("时间") & "#"
msgbox(Time )
Dim DayTime As Date = cdate(format(Day,"yyyy-MM-dd") & " " & format(Time,"HH:mm:ss"))msgbox(DayTime )
-- 发布时间：2022/6/14 9:51:00
--
Dim Day As Date =e.Form.Controls("录入日期").value \'只包括日期
msgbox(day)
For i As Integer= 1 To 11
Dim Time As Date = "#" & DataTables("时间表").find("名称=\'time"& i &"\'")("时间") & "#"
msgbox(Time )
Dim DayTime As Date = cdate(format(Day,"yyyy-MM-dd") & " " & format(Time,"HH:mm:ss"))
e.Form.Controls("DateTimePicker" & i).value= DayTime
msgbox(DayTime & e.Form.Controls("DateTimePicker" & i).value)
Next
弹窗显示的DayTime没问题的，指定日期成功；但是DateTimePicker" & i的赋值没有成功啊，显示的依然是当天的年月日啊。
此主题相关图片如下：微信截图_20220614094912.png
-- 发布时间：2022/6/14 10:13:00
--
日期控件有没有绑定表格？有没有事件代码？
-- 发布时间：2022/6/14 10:24:00
--
日期控件 没有 绑定表格啊，但是日期控件时time类型的。
If e.Form.Controls("录入日期").value <> Nothing
Dim Day As Date =e.Form.Controls("录入日期").value \'只包括日期
msgbox(day)
For i As Integer= 1 To 11
Dim Time As Date = "#" & DataTables("时间表").find("名称=\'time"& i &"\'")("时间") & "#"
msgbox(Time )
Dim DayTime As Date = cdate(format(Day,"yyyy-MM-dd") & " " & format(Time,"HH:mm:ss"))
e.Form.Controls("DateTimePicker" & i).value= DayTime
msgbox(DayTime & e.Form.Controls("DateTimePicker" & i).value)
Next
End If
For i As Integer=1 To 4
If e.Form.Controls("DateTimePicker" & i).value <> Nothing
If e.Form.Controls("NumericComboBox" & i).value <> Nothing
Dim dr As Row=Tables("日记").addnew
dr("时间")=e.Form.Controls("DateTimePicker" & i).value ‘时间 列是datetime类型的啊
dr("值") =e.Form.Controls("NumericComboBox" & i).value
End If
End If
Next
-- 发布时间：2022/6/14 10:47:00
--
日期控件改为datelongtime类型