Discussion :

[Cyrilange]

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.

[Cyrilange]

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

Code :

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

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 ?