Bonjour,
Je fais un programme qui permet de gérer des concours d'équitation.
J'ai deux tables :
Cavalier(NumLicence, NomC, PrenomC, AdrC, TelC, DateNC)
Cheval(NumSire, Nom, NumLicence#)

NumLicence clé etrangère de Cheval en relation avec NumLicence clé primaire de cavalier.

J'ai un formulaire qui permet de visualiser mes Chevaux, de modifier et supprimer.
Mais j'ai un problème.
A la visualisation je n'arrive pas a cibler le propriétaire qui correspond au cheval.
J'arrive a afficher toutes mes informations sauf le nom du proprio qui correspond.
Par contre j'arrive très bien a afficher tous les propriétaire dans cette zone de liste. Mais pour tous les chevaux ca affiche le premier propriétaire

J'arrive parfaitement a me connecter a ma base de données et a recupéré les données.

Voici ma méthode qui affiche mes chevaux :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Ecrirechevaux(ByVal numchev As Integer, ByVal numlicence As Integer)
        chevalenreg = maDTChev.Rows(numchev)
        Txtbnomchev.Text = chevalenreg("NumSire")
        Txtbnumsiret.Text = chevalenreg("Nom")
        proprioenreg = maDTProprio.Rows(numlicence)
        Cbxpropriochev.Text = proprioenreg("NomC")
 
    End Sub
Et voici le code qui permet de recupéré les données du cheval et du cavalier au chargement du formulaire:

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
Private Sub FrmVisuChevaux_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'CHARGEMENT DU FORMULAIRE
        Try
            maConnexion.Open()
            MsgBox("ok")
 
            sqlcheval = "select NumSire , Nom , NumLicence from Cheval"
            maCommandCheval.CommandText = sqlcheval
            maCommandCheval.Connection = maConnexion
            monDACheval.SelectCommand = maCommandCheval
            monDACheval.Fill(datasetcheval, "liste des chevaux")
            maDTChev = datasetcheval.Tables("liste des chevaux")
 
            sqlproprio = "select NumLicence , NomC , PrenomC from Cavalier"
            maCommandProprio.CommandText = sqlproprio
            maCommandProprio.Connection = maConnexion
            monDAProprio.SelectCommand = maCommandProprio
            monDAProprio.Fill(datasetproprio, "liste des proprio")
            maDTProprio = datasetproprio.Tables("liste des proprio")
            Cbxpropriochev.DataSource = maDTProprio
            Cbxpropriochev.ValueMember = "NumLicence"
            Cbxpropriochev.DisplayMember = "NomC"
 
            Ecrirechevaux(idchev, numlicence)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        maConnexion.Close()
    End Sub
Merci de vos reponses !