Voici le problème :

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

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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ClientsBindingSource.DataSource = ds.Clients
ContactsBindingSource.DataSource = ClientsBindingSource.DataSource
ContactsBindingSource.DataMember = "FK_Clients_ClientsContacts"
Merci de votre aide.