EALA FREYA FRESENA

Public Class frmFilter
 
    Dim dttest As New DataTable
    Dim dtselect As New DataTable
 
    Dim dgv As New DataGridView With {.Parent = Me, .Dock = DockStyle.Fill}
 
 
    Private Sub frmFilter_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        With dtTest
            .Columns.Add("Id", GetType(Integer))
            .Columns.Add("Vor", GetType(String))
            .Columns.Add("Nach", GetType(String))
 
            .Rows.Add(1, "Test", "Daten")
            .Rows.Add(15, "Robert", "Wer")
            .Rows.Add(18, "Norbert", "Wer")
            .Rows.Add(20, "Silvia", "Was")
            .Rows.Add(21, "Rudi", "Was")
            .Rows.Add(33, "Alles", "Wer")
            .Rows.Add(35, "Tim", "Burst")
            .Rows.Add(37, "Allen", "Cylon")
        End With
 
        dtselect = dttest.Clone
        dtselect.Columns.Add("Häufigkeit", GetType(Integer))
 
        Dim found As Boolean, l As Integer
 
        For i As Integer = 0 To dttest.Rows.Count - 1
            'Suche in übertragenen Sätzen
            found = False
            For k As Integer = 0 To dtselect.Rows.Count - 1
                If dtselect.Rows(k)("Nach").ToString = dttest.Rows(i)( _
                  "Nach").ToString Then
                    found = True : l = k : Exit For
                End If
            Next k
 
 
            If found Then
                'Name bereits vorhanden - Zählen
                dtselect.Rows(l)("Häufigkeit") = CInt(dtselect.Rows(l)( _
                  "Häufigkeit")) + 1
            Else
                'Name nicht vorhanden - Satz hinzufügen
                dtselect.Rows.Add(dttest.Rows(i).ItemArray)
                dtselect.Rows(dtselect.Rows.Count - 1)("Häufigkeit") = 1
            End If
        Next i
 
        dgv.DataSource = dtselect
    End Sub
End Class

Zitat:

als Moderator eines anderen Forums - kenne ich sehr wohl die Situation, wenn Newbies Fragen stellen. und vielleicht nur einmal mein Leitsatz als Trainer: Wir sind hier, weil wir etwas lernen wollen, dass wir bis dato noch nicht kennen und können. Und daher ist es keine Schande Fragen zu stellen, eher im Gegenteil.

Zitat:

Ich habe also auch bewusst hier im Einsteiger Forum meine Frage gestellt, in der Hoffnung, Hilfe, Tipps und auch Ratschläge zu bekommen.

Zitat:

Allerdings hilft es mir persönlich - und vermutlich vielen anderen Neulingen - nicht all zuviel - nur ein Schlagwort als Antwort zu erhalten, oder den Hinweis, man kennt sich nicht aus und soll nachschlagen.

Zitat:

Das man sich nicht auskennt, ist eine klare Sache, sonst würde man hier ja auch nicht fragen. Und versucht, den notwendigen Hinweis zu finden, das habe ich in den letzten Tagen zur Genüge, allerdings ohne Resultat oder Erfolg.

Zitat:

Auch hilft es manchmal, nur eine kleinen, aber notwendigen Tipp zu erhalten, oder den passenden Link.

Zitat:

Allerdings wäre es auch hilfreich, nicht gleich immer an die größtmögliche Anwendung zu denken, nochmals, es gibt hier keine Datenbank und keine SQL Anbindung an irgend etwas, es sind nur selbst erzeugte Datensätze, die entsprechend dargestellt werden sollen.