Lié deux combobox entre elles.

remy - Modifié par NHenry le 23/11/2015 à 19:00
Bonjour,
Je possède deux combobox relié à un base de donnée, je voudrais lier les deux combobox c'est à dire que je choisi dans mon cas un utilisateur dans la 1ere combobox et qu'il m'affiche que les résultats de l'utilisateur sélectionné, dans la seconde combobox. Je vous met le code que j'ai écris pour l'instant.




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

        'création du résultat dans premier menu déroulant
        Dim resultatSqlNomClient As DataTable
        resultatSqlNomClient = readRecord("select t_client.CltNom From t_client")
        Cb_NomClient.Items.Clear()
        For Each i In resultatSqlNomClient.Rows
            Cb_NomClient.Items.Add(i("CltNom")).ToString()
        Next


    End Sub



    'faire apparaître les OF seulement de la personne sélectionné

    Private Sub Cb_NomClient_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Cb_NomClient.SelectedIndexChanged
        Dim queryOF As String

        queryOF = "select OFID from t_of, t_client, t_client_cde where t_of.CdeID=t_client_cde.CdeID and t_client_cde.CltID=t_client.CltID and t_client.CltNom ='" & Cb_NomClient.Text & "';"

        Dim resultatSqlOF As DataTable = readRecord(queryOF)
        Cb_OF.Items.Clear()
        For Each i In resultatSqlOF.Rows
            Cb_OF.Items.Add(i("OFID")).ToString()
        Next
   
 End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.