Private Sub cmbox_lastname_TextChanged(ByVal sender As System.Object, ByVal e _
    As System.EventArgs) Handles cmbox_lastname.TextChanged
        If cmbox_firstname.Text.Length = 0 Then
            Get_SelectionList_Vorname()
        End If
        If cmbox_department.Text.Length = 0 Then
            Get_SelectionList_Department()
        End If
        If cmbox_office.Text.Length = 0 Then
            Get_SelectionList_Office()
        End If
        If cmbox_manager.Text.Length = 0 Then
            Get_SelectionList_Manager()
        End If
        If cmbox_businesscategory.Text.Length = 0 Then
            Get_SelectionList_BusinessCategory()
        End If
    End Sub
 
 
    Private Sub Get_SelectionList_Nachname()
        Dim query_Nachname = From user_list In ds_all_unfiltered.Tables( _
          "userlist").AsEnumerable()
                             Where user_list!Nachname <> "" _
                             And user_list.Field(Of String)("Nachname").ToUpper( _
                             ).StartsWith(cmbox_lastname.Text.ToUpper()) _
                             Order By user_list!Vorname
                             Select user_list!Vorname Distinct
        Dim array_Vorname As Array = query_Vorname.ToArray()
        Dim array_Vorname1 As ArrayList = New ArrayList()
        array_Vorname1.Add("")
        array_Vorname1.AddRange(array_Vorname)
        cmbox_firstname.DataSource = array_Vorname1
        cmbox_firstname.DisplayMember = array_Vorname1.ToString()
    End Sub
 
    Private Sub Get_SelectionList_Vorname()
        Dim query_Vorname = From user_list In ds_all_unfiltered.Tables( _
          "userlist").AsEnumerable()
                             Where user_list!Vorname <> "" _
                             And user_list.Field(Of String)("Nachname").ToUpper( _
                             ).StartsWith(cmbox_lastname.Text.ToUpper()) _
                             Order By user_list!Vorname
                             Select user_list!Vorname Distinct
        Dim array_Vorname As Array = query_Vorname.ToArray()
        Dim array_Vorname1 As ArrayList = New ArrayList()
        array_Vorname1.Add("")
        array_Vorname1.AddRange(array_Vorname)
        cmbox_firstname.DataSource = array_Vorname1
        cmbox_firstname.DisplayMember = array_Vorname1.ToString()
    End Sub
 
    Private Sub Get_SelectionList_Department()
        Dim query_Vorname = From user_list In ds_all_unfiltered.Tables( _
          "userlist").AsEnumerable()
                             Where user_list!Vorname <> "" _
                             And user_list.Field(Of String)("Nachname").ToUpper( _
                             ).StartsWith(cmbox_lastname.Text.ToUpper()) _
                             Order By user_list!Vorname
                             Select user_list!Vorname Distinct
        Dim array_Vorname As Array = query_Vorname.ToArray()
        Dim array_Vorname1 As ArrayList = New ArrayList()
        array_Vorname1.Add("")
        array_Vorname1.AddRange(array_Vorname)
        cmbox_firstname.DataSource = array_Vorname1
        cmbox_firstname.DisplayMember = array_Vorname1.ToString()
    End Sub
 
    End Sub

_________________________________________________________________________________

Systemintegrator der Spa? am Programmieren gefunden hat!
Bitte nicht hauen, wenn ich etwas Falsches, oder Quatsch von mir gebe ;)