如何批量更改DateTimePicker的日期啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何批量更改DateTimePicker的日期啊？

共有5091人关注过本帖树形打印复制链接主题：如何批量更改DateTimePicker的日期啊？

guosheng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00

如何批量更改DateTimePicker的日期啊？ 发帖心情

Post By：2022/6/14 9:16:00 [显示全部帖子]

无论怎么改，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等，没有年月日。如果数据直接保存到列中，显示的年月日是系统当前的年月日啊。

End If

[此贴子已经被作者于2022/6/14 9:23:09编辑过]

guosheng

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00

Post By：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)

弹窗显示的DayTime没问题的，指定日期成功；但是DateTimePicker" & i的赋值没有成功啊，显示的依然是当天的年月日啊。

此主题相关图片如下：微信截图_20220614094912.png

guosheng

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00

Post By：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)

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

下一主题 >> << 上一主题

主题：如何批量更改DateTimePicker的日期啊？