Discussion :

[deviljim]

Bonjour à tous !

J'ai deux tables Clients et Devis qui sont liées.
J'ai récupéré le nom de mes clients dans une listbox1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Me.ClientsTableAdapter.Fill(Me.DevisDataSet.Clients)

J'aimerai qu'en cliquant sur un nom dans ma listbox1 que ma listbox2 affiche les noms des devis liés à ce client.

Si quelqu'un a une idée pour me mettre sur la voie
Merci d'avance.

[Uranne-jimmy]

Bonjour,
Il faut regarder les évènements de ta listbox1. Parmi ceux là, il y en a un qui se déclenche à la sélection d'un item.
Ensuite tu crées une fonction qui s'active lors de cet événement et qui rempli ta listbox2 en fonction de l'item sélectionné en listbox1.

[Armorio]

Je te conseillerai d'utiliser 2 comboBox au lieu de liste box ainsi tu aurai un DisplayMember qui est la valeur afficher et un valueMember qui est la valeur réel tu met donc les nom en displayMember et l'id du nom en valueMember et tu te sers de l'id de l'item sélectionner via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomCombox.selectedValue.ValueMember.toString

pour lancer une requête dans l'autre combo box qui se remplira avec cette dernière .
ex combobox.datavalue = exectueRequete("Select * From devis Where idClient ") ou id client est égal a la valueMember cité plus haut

tous ça sur l'action du SelectItemChange

^^

[Rainui]

Bonjour,

Puisque vous utilisez un DataSet pour les données, pourquoi ne pas utiliser deux BindingSource :

Soit une ComboBox nommée cboClient et un BindingSource nommé bsClients

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
bsClients.DataSource=MonDataSet
bsClients.DataMember="Clients" 'La table "Clients" du DataSet
cboClient.DataSource=bsClients
cboClients.DisplayMember="Raison_Sociale"
cbo.ValueMember="ID"

Soit un deuxième contrôle possédant une propriété .DataSource (datagridview, combobox, ...) nommé MonContrôleAffichage et un deuxième BindingSource nommé bsDevisDuClient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
'La subtilité est ici, on se sert du premier bindingsource comme source de données
bsDevisDuClient.DataSource=bsClients
'Un petit piège, on se sert de la relation entre les tables pour la propriété .DataMember du bindingsource
bsDevisDuClient.DataMember= "Client_Devis" 'Le nom de la relation dans le dataset entre la table Clients et la table Devis
MonContrôleAffichage.DataSource=bsDevisDuClient
'Et après, ça dépend du contrôle utilisé.

L'avantage, c'est qu'en fait il n'y a pas de code à écrire, tout se fait via l'interface de design

[deviljim]

Merci à tous pour vos réponses; je vais tester les différentes solutions, je vous tiendrai au courant.

Mais je tiens à signaler que les comboboxs ne correspondent pas à ce que je veux faire.

[rv26t]

Bonjour,

Mais je tiens à signaler que les comboboxs ne correspondent pas à ce que je veux faire.

Les listBox contiennent aussi les propriétés DisplayMember , et ValueMember .

[deviljim]

Bonjour tout le monde,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstclients.SelectedIndexChanged
        Dim str As Integer
        Dim sql As String
        Dim reader As OleDbDataReader
        str = lstclients.SelectedValue
        lstdevis.Items.Clear()
        Try
            cnxstr = ("Provider = Microsoft.Jet.OLEDB.4.0;Data source = Y:\Devis.mdb")
            cnx = New OleDbConnection
            cnx.ConnectionString = cnxstr
            cnx.Open()
            sql = "Select Nom From Devis Where idClient Like  '" & str & "'"
            Dim requete As New OleDbCommand(sql, cnx)
 
            reader = requete.ExecuteReader()
 
            Do While reader.Read()
                lstdevis.Items.Add(reader.GetValue(0))
            Loop
            reader.Close()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
        Try
            cnx.Close()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
        Width = 733
 
    End Sub

J'ai trouvé une solution, je ne sais pas si c'est la plus optimale mais elle marche
Merci à tous d'avoir éclairer mon chemin vous êtes