poupou61
Messages postés61Date d'inscriptionvendredi 17 février 2012StatutMembreDernière intervention18 janvier 2013
-
2 févr. 2012 à 11:49
NSUADI
Messages postés540Date d'inscriptionmardi 4 août 2009StatutMembreDernière intervention 1 février 2013
-
3 févr. 2012 à 17:17
bonjour,
Avant de vous expliquer mon problème il faut que j'explique un bout de ma BDD :
donc j'ai une table fournisseur avec un numFour, CodeFour, RaisonSocialeFour ...
et la clé primaire c'est NumFour et CodeFour (un même fournisseur peu avoir plusieurs CodeFour je comprend pas trop pouquoi mais bon c'est comme sa...) et donc quand je charge la combobox avec RaisonSocialeFour il y a des noms qui reviennent. J'ai donc fais une nouvelle requête dans mon dataset avec un distinct sur le RaisonSocialeFour (Requête qui marche très bien dans Access, mais par contre quand je charge la combobox il n'y a plus rien).
Me._taFournisseur.Fill(MonDataSet1.Fournisseur)
Dim donneesFour As DataTable = _taFournisseur.GetData()
Me.CbxFour.Items.Add(New Mylist("", 0))
For Each Four As DataRow In donneesFour.Rows
Dim itemlist As New Mylist
itemlist.Name = Four("RaisonSocialeFour")
itemlist.ItemData = Four("NumFournisseur")
Me.CbxFour.Items.Add(itemlist)
Next
donc sa c'est le code qui marche avec la requête de base de la table fournisseur du dataset mais qui m'affiche la raison sociale de certains fournisseurs en double voir plus.
donc après je créer une nouvelle requête dans mon dataset avec le distinct sur le numFournisseur :
SELECT Distinct(NumFournisseur), RaisonSocialeFour
from fournisseur
la requête dans access fonctionne très bien.
et donc je change pas grand chose après dans le chargement de la combobox :
Me._taFournisseur.FillByRSFour(GenourobDataSet1.Fournisseur)
Dim donneesFour As DataTable = _taFournisseur.GetDataByRSFour()
Me.CbxFour.Items.Add(New Mylist("", 0))
For Each Four As DataRow In donneesFour.Rows
Dim itemlist As New Mylist
itemlist.Name = Four("RaisonSocialeFour")
itemlist.ItemData = Four("NumFournisseur")
Me.CbxFour.Items.Add(itemlist)
Next