[VS2005][VB.NET] Dataset Typé et relations.

Voici le problème :

• 2 Datatable : Clients et ContactsClients
• 1 relation entre ces 2 tables : FK_Clients_ClientsContacts
• 2 datagridview

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

PublicClass FormTest Dim ClientsBindingSource AsNew BindingSource Dim ContactsBindingSource AsNew BindingSource PrivateSub FormTest_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load Dim ds AsNew dbSolberProspectionDataSet Dim daClients AsNew dbSolberProspectionDataSetTableAdapters.ClientsTableAdapter Dim daContacts AsNew dbSolberProspectionDataSetTableAdapters.ClientsContactsTableAdapter daClients.Fill(ds.Clients) daContacts.Fill(ds.ClientsContacts) ClientsBindingSource.DataSource = ds ClientsBindingSource.DataMember = ds.Clients.TableName ContactsBindingSource.DataSource = ClientsBindingSource.DataSource ContactsBindingSource.DataMember = "FK_Clients_ClientsContacts" dgvMaster.DataSource = ClientsBindingSource dgvChild.DataSource = ContactsBindingSource EndSub EndClass

---

D'après les exemples que j'ai trouvé ce code devrait parfaitement fonctionner et pourtant j'obtien le message d'erreur suivant :

Code:

---

1 2	La propriété DataMember 'FK_Clients_ClientsContacts' est introuvable dans le DataSource.

---

J'ai également essayé la 2eme méthode sans succés :

Code:

---

1 2 3 4

ClientsBindingSource.DataSource = ds.Clients ContactsBindingSource.DataSource = ClientsBindingSource.DataSource ContactsBindingSource.DataMember = "FK_Clients_ClientsContacts"

---

Merci de votre aide.

Pour vérifier que ma relation existe bien j'ai mis ce bout de code :

Code:

---

1 2 3 4 5 6 7

Dim text As String ForEach item As DataRelation In ds.Clients.ChildRelations text += item.ToString & vbCrLf Next MsgBox(text)

---

Et j'obtiens bien "FK_Clients_ClientsContacts". Pourquoi n'arrive-t-il pas à voir cette relation dans la propriété DataMember ?