- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 日期判断 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88222)
-- 发布时间：2016/7/29 11:29:00
-- 日期判断
判断日期：
两个字段“开始日期”、“结束日期”。填入的“结束日期”必须大于“开始日期”，否则弹出对话框“结束日期”必须大于“开始日期”。
现在我是这么做的：
在startEdit里面写：
Case "起始日期","结束日期"
If e.Row("起始日期") >= e.Row ("结束日期") Then
e.Cancel = True \'取消编辑
Messagebox.Show("【结束日期】必须大于【起始日期】","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
出现问题：填完“开始日期”鼠标点击到“结束日期”是就直接弹出提示的对话框。
请问如何修改？
[此贴子已经被作者于2016/7/29 11:33:23编辑过]
-- 发布时间：2016/7/29 11:44:00
--
在 ValidateEdit 里面写
-- 发布时间：2016/7/29 13:34:00
--
不行啊！还是一样的错误。是不是“结束日期”是空，系统把它判断为0？
-- 发布时间：2016/7/29 14:34:00
--
判断一下再比较
Case "起始日期","结束日期"
If e.Row.IsNull("起始日期") = False AndAlso e.Row.IsNull("结束日期") = False Then
If e.Row("起始日期") >= e.Row ("结束日期") Then
e.Cancel = True \'取消编辑
Messagebox.Show("【结束日期】必须大于【起始日期】","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
-- 发布时间：2016/7/29 15:06:00
--
先判断再计算也是出现这样的问题。。。
怎么办啊？
-- 发布时间：2016/7/29 15:11:00
--
DataColChanging 事件
e.NewValue
[此贴子已经被作者于2016/7/29 15:19:08编辑过]
-- 发布时间：2016/7/29 15:49:00
--
改用DataColChanging事件，代码：
Select Case e.DataCol.name
Case "起始日期","结束日期"
If e.DataRow.IsNull("起始日期") = False AndAlso e.DataRow.IsNull("结束日期") = False Then
Dim dt1 As Date = iif(e.DataCol.name = "起始日期",e.NewValue, e.DataRow("起始日期"))
Dim dt2 As Date = iif(e.DataCol.name = "结束日期",e.NewValue, e.DataRow("结束日期"))
If dt1 >= dt2 Then
e.Cancel = True \'取消编辑
Messagebox.Show("【结束日期】必须大于【起始日期】","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
End Select
-- 发布时间：2016/7/29 16:04:00
--
此主题相关图片如下：1.png
第一次写入的日期不会提醒，再次写入小于“起始日期”的日期才会提示。所以还是不行啊
[此贴子已经被作者于2016/7/29 16:05:14编辑过]
-- 发布时间：2016/7/29 17:11:00
--
7楼的代码不会有问题，注意放在DataColChanging事件，不是放在DataColChanged事件
-- 发布时间：2016/7/29 17:12:00
--
\'ValidateEdit 事件
If e.Col.Name = "结束日期" Then
If e.Row("起始日期") >= e.text Then
e.Text= ""
MessageBox.Show("【结束日期】必须大于【起始日期】")
End If
End If