Public Class frmSuche

    Dim m_suchdata As DataTable
    Property SuchData As DataTable
        Get
            Return m_suchdata
        End Get
        Set(value As DataTable)
            m_suchdata = value
        End Set
    End Property

    Dim m_suchtree As DevComponents.AdvTree.AdvTree
    Property SuchTree As DevComponents.AdvTree.AdvTree
        Get
            Return m_suchtree
        End Get
        Set(value As DevComponents.AdvTree.AdvTree)
            m_suchtree = value
        End Set
    End Property

    Dim dt As New DataTable
    Dim u As New clsUebersichtre

    Private Sub frmSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dt.Columns.Add("Key")
        dt.Columns.Add("Typ")
        dt.Columns.Add("Bezeichnung")
        If Me.txtSuchbegriff.Text <> "" Then btnSuche_Click(sender, e)
    End Sub

    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
        dt.Rows.Clear()
        For Each dr As DataRow In Me.SuchData.Rows
            If InStr(UCase(dr.Item("Bezeichnung")), UCase(Me.txtSuchbegriff.Text)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(Me.txtSuchbegriff.Text)) > 0 Then
                Dim r As DataRow = dt.NewRow
                r.Item(0) = dr.Item("ID")
                r.Item(2) = dr.Item("Bezeichnung")
                dt.Rows.Add(r)
            End If
        Next

        For Each dr As DataRow In dt.Rows
            Dim tn As New DevComponents.AdvTree.Node
            tn = u.FindNode(Me.SuchTree.Nodes, dr.Item(0), "")
            If Not tn Is Nothing Then
                dr.Item(1) = u.TreeView_GetRootNode(Me.SuchTree, tn)
            End If
        Next
        Me.C1Suchresultat.DataSource = Nothing
        Me.C1Suchresultat.DataSource = dt
        Me.C1Suchresultat.DataMember = dt.TableName
        Me.C1Suchresultat.Splits(0).DisplayColumns(0).Width = 0
        Me.C1Suchresultat.Splits(0).DisplayColumns(1).Width = 100
        Me.C1Suchresultat.Splits(0).DisplayColumns(2).Width = 200

        Me.txtSuchbegriff.SelectAll()
    End Sub


    Private Sub txtSuchbegriff_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuchbegriff.KeyDown
        If e.KeyCode = Keys.Enter Then
            btnSuche_Click(sender, e)
        End If
    End Sub

    Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
        Me.SuchTree.SelectedNode = u.FindNode(Me.SuchTree.Nodes, Me.C1Suchresultat.Columns(0).Value, "")
    End Sub

    Private Sub C1Suchresultat_DoubleClick(sender As Object, e As EventArgs) Handles C1Suchresultat.DoubleClick
        Try
            AnzeigenToolStripMenuItem_Click(sender, e)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub C1Suchresultat_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Suchresultat.MouseDown
        Me.C1Suchresultat.Bookmark = Me.C1Suchresultat.RowContaining(e.Y)
    End Sub

    Private Sub AnzeigenInNeuemFensterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenInNeuemFensterToolStripMenuItem.Click
        Dim f As New frmUebersicht(Me.C1Suchresultat.Columns(0).Value)
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub
End Class