如何验证输入的时间是否大于先前输入的datepicker控件

时间:2016-06-08 18:02:30

标签: vb.net winforms datetime infragistics

这里我使用VB.NET的Windows窗体应用程序。我正在创建一个简单的基本表单,它有助于在infragistics面板中动态创建一些datetimepicker infragistics控件。

以下是表单

的屏幕截图

enter image description here

现在点击“保存”按钮,单击“我循环浏览每个日期选择器”并将其值保存为数据库中的id。

现在我希望验证警报消息,例如,如果用户尝试输入的日期少于先前输入的日期选择器。那么它应该验证你输入的日期比以前的日期时间值少。

这是我的保存按钮点击代码

Private Sub UltraButtonSave_Click(sender As Object, e As EventArgs) Handles UltraButtonSave.Click
    If Not DBNull.Value.Equals(chkdtDataTable.Rows.Item(0).Item("ConveyanceID")) AndAlso Not DBNull.Value.Equals(chkdtDataTable.Rows.Item(0).Item("TripID")) Then
        ScreenProperty.ARG_ConveyanceID = chkdtDataTable.Rows.Item(0).Item("ConveyanceID")
        ScreenProperty.ARG_TripID = chkdtDataTable.Rows.Item(0).Item("TripID")
        For Each o As Object In UltraPanel1.ClientArea.Controls
            If TypeOf (o) Is UltraDateTimeEditor Then
                Dim datePicker As UltraDateTimeEditor = o
                ScreenProperty.ARG_CheckPointTimeID = Convert.ToInt32(datePicker.Tag.Split(","c)(0))
                ScreenProperty.ARG_TerminalCheckPointID = Convert.ToInt32(datePicker.Tag.Split(","c)(1))
                ScreenProperty.ARG_CheckPointTimeValue = datePicker.Value
                Helper.InsertCheckPointTimesScreen(CType(ScreenProperty, KMCommonUITemplates.CUTScreenProperty), Me)
            End If
        Next
    Else
        MessageBox.Show("Selected Order does not have Trip/Conveyance created.")
    End If
End Sub

1 个答案:

答案 0 :(得分:0)

只需创建3个变量:

OriginalScheduled
Original1stLine
Originaldock

从数据库获取数据(打开表单)时填充这些变量。然后,当更改日期时,将其与您拥有的原始值进行比较。