以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 日期控件判断，如何可以得到修改之前的日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115842)
--  作者：2900819580
--  发布时间：2018/3/15 15:15:00
--  [求助] 日期控件判断，如何可以得到修改之前的日期
Dim kj As String = e.Sender.Gettype().Tostring()
If kj = "foxtable.WinForm.DateTimePicker" Then
    If e.Form.Controls("Dte日期").value < e.Form.Controls("Dts日期").value Then
        MessageBox.Show("结束日期不可以比开始日期小")
        e.cancel = True ‘  想得到没有修改之前的日期。
    End If
End If
--  作者：有点甜
--  发布时间：2018/3/15 15:29:00
--  

没办法，无法得到修改之前的日期。

 

如果要做，需要记录之前的日期，如

 

Enter事件 vars(e.sender.name) = e.sender.text

 

获取值 msgbox(vars(e.sender.name))
--  作者：2900819580
--  发布时间：2018/3/15 17:23:00
--  
Dim kj As String = e.Sender.Gettype().Tostring()
If kj = "foxtable.WinForm.DateTimePicker" Then
    If e.Form.Controls("Dte日期").value < e.Form.Controls("Dts日期").value Then
        MessageBox.Show("结束日期不可以比开始日期小")
        e.Sender.value = vars(e.Sender.name)
    End If
End If

谢谢老师！