Public Class frmPrivatSelect
    Dim intNr As Integer

    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
        Try
            intNr = Me.TreeView1.SelectedNode.Tag
        Catch ex As Exception

        End Try
    End Sub

    Private Sub TreeView1_DoubleClick(sender As Object, e As EventArgs) Handles TreeView1.DoubleClick
        Try
            intNr = Me.TreeView1.SelectedNode.Tag
            Me.DialogResult = DialogResult.OK
            Me.Close()
        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            intNr = Me.TreeView1.SelectedNode.Tag
            Me.DialogResult = DialogResult.OK
            Me.Close()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.DialogResult = DialogResult.Abort
        Me.Close()
    End Sub

    Private Sub TreeView1_KeyDown(sender As Object, e As KeyEventArgs) Handles TreeView1.KeyDown
        If e.KeyCode = Keys.Enter Then
            TreeView1_DoubleClick(sender, e)
        End If
    End Sub

    Private Sub frmPrivatSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Public Sub txtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtsuche.KeyDown
        If e.KeyCode = Keys.Enter Then
            suchen
        End If
    End Sub

    Public Sub Suchen()
        Dim db As New clsDB
        Dim s As String = ""
        If RadioButton1.Checked = True Then
            s = db.Get_SQL(40)
        Else
            s = db.Get_SQL(41)
        End If
        If s Is Nothing Then
            If db.Get_Option(70000) = "True" Then
                db.Get_Tabledata("privat", " where name like '%" + Me.txtsuche.Text + "%'" + " order by name, vorname, ort")
            Else
                db.Get_Tabledata("privat", " where name like '" + Me.txtsuche.Text + "%'" + " order by name, vorname, ort")
            End If

        Else
                db.Get_Tabledata("privat", "", s + "  order by name, vorname, ort", Me.txtsuche.Text)

        End If
        Me.TreeView1.Nodes.Clear()

        For Each r As DataRow In db.dsDaten.Tables(0).Rows
            Dim tn As New TreeNode
            tn.Text = r("nrprivat").ToString + " " + r("Name") + " " + r("vorname") + ", " + r("PLZ") + " " + r("ort")
            tn.Tag = r("nrprivat")
            Me.TreeView1.Nodes.Add(tn)
        Next
        Try
            Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
        Catch
        End Try


    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then Suchen()
        Suchen()
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then Suchen()
    End Sub
End Class