Hallo
ich habe einen DataTable mit einem Feld 'Datum', Format DateTime
ich möchte nun alle Einträge vom 1.6.2017 aus diesem DataTable rauslesen.
Kann mir da jemand helfen? Alles, was ich ergoogelt habe, funktioniert nicht.
hier mein Code:
Dim dtDatum As DataTable
Dim dsDatum As DataSet
dsDatum = New DataSet("dsDatum")
dtDatum = New DataTable("Datum")
dtDatum = dsDatum.Tables.Add("Datum")
dtDatum.Columns.Add("Datum", GetType(System.DateTime))
Dim dtStartMerker As DateTime = Nothing
Dim dtEndeMerker As DateTime = Nothing
For Each eintrag In log.Entries
drDatum = dtDatum.NewRow
drDatum("Datum") = eintrag.TimeGenerated
dtDatum.Rows.Add(drDatum)
Next
Dim foundRows() As Data.DataRow
foundRows = dtDatum.Select("Datum = '1.6.2017'")
For Each dr As DataRow In foundRows
If dtStartMerker > dr!Datum Then
dtStartMerker = dr!Datum
End If
If dtEndeMerker < dr!Datum Then
dtEndeMerker = dr!Datum
End If
Next
ich habe einen DataTable mit einem Feld 'Datum', Format DateTime
ich möchte nun alle Einträge vom 1.6.2017 aus diesem DataTable rauslesen.
Kann mir da jemand helfen? Alles, was ich ergoogelt habe, funktioniert nicht.
hier mein Code:
Dim dtDatum As DataTable
Dim dsDatum As DataSet
dsDatum = New DataSet("dsDatum")
dtDatum = New DataTable("Datum")
dtDatum = dsDatum.Tables.Add("Datum")
dtDatum.Columns.Add("Datum", GetType(System.DateTime))
Dim dtStartMerker As DateTime = Nothing
Dim dtEndeMerker As DateTime = Nothing
For Each eintrag In log.Entries
drDatum = dtDatum.NewRow
drDatum("Datum") = eintrag.TimeGenerated
dtDatum.Rows.Add(drDatum)
Next
Dim foundRows() As Data.DataRow
foundRows = dtDatum.Select("Datum = '1.6.2017'")
For Each dr As DataRow In foundRows
If dtStartMerker > dr!Datum Then
dtStartMerker = dr!Datum
End If
If dtEndeMerker < dr!Datum Then
dtEndeMerker = dr!Datum
End If
Next