Question

Private Shared Function ValidateDate(dataTable As DataTable) As Boolean

    Dim Currentdate As Date = Date.Now()
    Dim Rows As New List(Of String)

    Dim result As Boolean = True
    For Each Row As DataRow In dataTable.Rows
        If Not Currentdate Is  Then
    Next      

    Return result

End Functionhere

我想将DataTable的日期列与当前日期进行比较，并返回它是否与当前日期匹配。

Answer 1

代码：

专用共享功能ValidateDate（dataTable As DataTable）为布尔

    Dim Currentdate As Date = Today
    Dim result As Boolean = True
    For Each row As DataRow In dataTable.Rows
        If Not CDate(row.Item("ReportDate")) >= Currentdate Then
            result = False
            Exit For
        End If

    Next
    Return result
End Function

感谢您的回复。我使用此方法验证日期列的每一行中的日期

Answer 2

也许这可以提供帮助（未经测试但应该有效）......此方法为您提供了符合条件的行列表

    Dim Currentdate As Date = Today
    Dim lst as New List(of DataRow)

    For each row as DataRow in datatable.Rows
        If CDate(row.Items(index or columname)) = currentdate Then
            lst.Add(row)
    Next

    return lst

请注意，您有date数据类型的时间，如果您没有明确说明，那么它将是0:00:00。（应该没问题，如果所有的值都只是“默认0:00:00时间”的日期“）如果不是，那么如果日期和时间不同，你将只获得true时间是一样的**！

所以你应该使用Today而不是Date.Now（）..每次拨打Date.Now()，你都会得到实际的日期和时间。实际时间。使用Today，您可以获得实际日期和时间= 0:00:00。

比较特定列的所有行

2 个答案: