remplir une listbox2 en cliquant sur un élément d'un listbox1 vb.net

Version imprimable

26/05/2014, 16h59
deviljim

remplir une listbox2 en cliquant sur un élément d'un listbox1 vb.net

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:

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.
26/05/2014, 17h02
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.
26/05/2014, 17h08
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:

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

^^:mouarf:

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:

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:

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

27/05/2014, 12h47
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.
27/05/2014, 16h19
rv26t

Bonjour,

Citation:

Envoyé par sowboubacar

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 .

Bonjour tout le monde,

Code:

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 :P
Merci à tous d'avoir éclairer mon chemin vous êtes :ccool: