Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何给 date 型 的数据设置 时分秒呢


  共有2796人关注过本帖树形打印复制链接

主题：如何给 date 型 的数据设置 时分秒呢
帅哥哟，离线，有人找我吗？
zhsenchzhi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00 		如何给 date 型 的数据设置 时分秒呢  发帖心情 Post By：2017/7/1 13:57:00 [只看该作者]

由于系统的日期时间 只能选择 日期， 不能选择时间 所以自己做了一个，如下图所示


图片点击可在新窗口打开查看此主题相关图片如下：1aaa.png
图片点击可在新窗口打开查看

但是 给里面的  日期 设置 时分秒时，却提示 是只读的， 不能设置，请问该怎么办呢？


图片点击可在新窗口打开查看此主题相关图片如下：2aaa.png
图片点击可在新窗口打开查看


代码如下


Dim DateSel As Date = e.Form.Controls("DateTimePickerDate").value
Dim i_hour As Integer = Integer.TryParse(d_hour,0)
Dim i_min As Integer = Integer.TryParse(d_min,0)
DateSel.Hour = i_hour
DateSel.Minute = i_min
DateSel.Second = 0

 
[此贴子已经被作者于2017/7/1 13:57:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106273 积分：540494 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/1 15:04:00 [只看该作者]

Dim DateSel As Date = e.Form.Controls("DateTimePickerDate").value
Dim i_hour As Integer = val(d_hour)
Dim i_min As Integer = val(d_min)
DateSel = new Date(DateSel.Year,DateSel.Month,DateSel.Day,i_hour,i_min)
 回到顶部
帅哥哟，离线，有人找我吗？
zhsenchzhi
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00 		  发帖心情 Post By：2017/7/1 15:36:00 [只看该作者]

多谢楼上 ，还想问一下 ， 上面窗口的类型 是  DropDownForm， 在点击确定按钮时，对他进行校验，

Dim d_date As String = e.Form.Controls("DateTimePickerDate").text
If d_date Is Nothing OrElse d_date.trim.Length < 1 Then
    MessageBox.show("必须设置日期")
    Return
End If


现在的问题是   执行完   MessageBox.show("必须设置日期")  后，并没有 执行 e.Form.DropDownBox.CloseDropdown()  这个  DropDownForm 也自行关闭了， 

该怎样才能让这个   DropDownForm  不关闭呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106273 积分：540494 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/1 15:47:00 [只看该作者]

1、不要用MessageBox，放个标签label显示错误信息

2、重新打开下拉
Dim d_date As String = e.Form.Controls("DateTimePickerDate").text
If d_date Is Nothing OrElse d_date.trim.Length < 1 Then
    MessageBox.show("必须设置日期")
    e.Form.DropDownBox.OpenDropDown
    Return
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询