Hallo Zusammen,
in einem dgv durch ein Dataset bereitgestellte Daten möchte ich gern filtern. Genau genommen handelt es sich um Datumsangaben, welche als String vorhanden sind.
Ich möchte nun die Häufigkeit eines Datums ( Monat ausreichend ) hochzählen und ausgeben. Prinzipiell ist mir das auch gelungen aber ich vermute, die Performance wird mit zunehmenden Einträgen jenseits der 10000 leiden.
Wie könnte ich das verbessern, um keine Einbrüche zu erleben.
Folgenden Code habe ich bislang am laufen. Eines noch, ich wiederhole mich da auch gern, ich bin kein Programmierer sondern versuche mit Beispielen und ein wenig eigenem Verständnis zum Ziel zu kommen.
Hierbei wird vermutlich Code entstehen, welche eher pragmatisch ist und bei dem einen oder anderen sehr wahrscheinlich Schwindel verursacht, von daher, seid gnädig
Gruß Madde
in einem dgv durch ein Dataset bereitgestellte Daten möchte ich gern filtern. Genau genommen handelt es sich um Datumsangaben, welche als String vorhanden sind.
Ich möchte nun die Häufigkeit eines Datums ( Monat ausreichend ) hochzählen und ausgeben. Prinzipiell ist mir das auch gelungen aber ich vermute, die Performance wird mit zunehmenden Einträgen jenseits der 10000 leiden.
Wie könnte ich das verbessern, um keine Einbrüche zu erleben.
Folgenden Code habe ich bislang am laufen. Eines noch, ich wiederhole mich da auch gern, ich bin kein Programmierer sondern versuche mit Beispielen und ein wenig eigenem Verständnis zum Ziel zu kommen.
Hierbei wird vermutlich Code entstehen, welche eher pragmatisch ist und bei dem einen oder anderen sehr wahrscheinlich Schwindel verursacht, von daher, seid gnädig
VB.NET-Quellcode
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".01.")
- Dim jan As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".02.")
- Dim feb As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".03.")
- Dim mar As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".04.")
- Dim apr As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".05.")
- Dim mai As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".06.")
- Dim jun As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".07.")
- Dim jul As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".08.")
- Dim aug As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".09.")
- Dim sep As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".10.")
- Dim okt As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".11.")
- Dim nov As String = TblAuftragsbuchBindingSource.Count
- TblAuftragsbuchBindingSource.Filter = String.Format("CONVERT([Eingangsdatum],System.String) LIKE '%{0}%'", ".12.")
- Dim dez As String = TblAuftragsbuchBindingSource.Count
- Dim arr As Integer() = {jan, feb, mar, apr, mai, jun, jul, aug, sep, okt, nov, dez}
- Dim top As Integer = Nothing
- For u = 0 To arr.Count - 1
- If arr(u) > top Then
- top = arr(u)
- End If
- Next
- If top.ToString = jan Then
- LabelMonat.Text = "Januar " & "(" & top.ToString & ")"
- ElseIf top.ToString = feb Then
- LabelMonat.Text = "Februar " & "(" & top.ToString & ")"
- ElseIf top.ToString = mar Then
- LabelMonat.Text = "März " & "(" & top.ToString & ")"
- ElseIf top.ToString = apr Then
- LabelMonat.Text = "April " & "(" & top.ToString & ")"
- ElseIf top.ToString = mai Then
- LabelMonat.Text = "Mai " & "(" & top.ToString & ")"
- ElseIf top.ToString = jun Then
- LabelMonat.Text = "Juni " & "(" & top.ToString & ")"
- ElseIf top.ToString = jul Then
- LabelMonat.Text = "Juli " & "(" & top.ToString & ")"
- ElseIf top.ToString = aug Then
- LabelMonat.Text = "August " & "(" & top.ToString & ")"
- ElseIf top.ToString = sep Then
- LabelMonat.Text = "September " & "(" & top.ToString & ")"
- ElseIf top.ToString = okt Then
- LabelMonat.Text = "Oktober " & "(" & top.ToString & ")"
- ElseIf top.ToString = nov Then
- LabelMonat.Text = "November " & "(" & top.ToString & ")"
- ElseIf top.ToString = dez Then
- LabelMonat.Text = "Dezember " & "(" & top.ToString & ")"
- End If
Gruß Madde