如何检查日期时间值是否大于循环中的先前值

Question

我在这里使用基础设施控制。如何验证和检查当前的数据时间值是否大于以前的数据时间值。

在循环中，我有Dim datePicker As UltraDateTimeEditor = o 的列表，所以如果当前日期选择器值大于前一个值，我需要检查每个循环

记住一点……一些数据选择器的值可能是空的。所以我们不应该和那些比较。

 For Each o As Object In UltraPanel1.ClientArea.Controls
    If TypeOf (o) Is UltraDateTimeEditor Then
      Dim datePicker As UltraDateTimeEditor = o
      Dim datevalue As Object = datePicker.Value
    End If
 Next

Answer 1

您需要使用在循环外定义的变量，以便您可以在该变量中保存前一个值并将当前值与前一个值进行比较。并且在每次迭代结束时，前一个值应该用当前值更新，因为它将是下一次迭代的前一个值；以下代码将对您有所帮助：

Dim prevDatevalue As Object = Nothing
For Each o As Object In UltraPanel1.ClientArea.Controls
    If TypeOf (o) Is UltraDateTimeEditor Then
      Dim datePicker As UltraDateTimeEditor = o
      Dim datevalue As Object = datePicker.Value
      If prevDatevalue <> Nothing Then
         If prevDatevalue < datevalue Then
            ' Do something Previous value is Lesser
         Else
            ' Do something else Previous value is greater
         End If  
      End IF      
         prevDatevalue = datePicker.Value 
    End If
Next