Fonction select LINQ sur un dataset pour affecter dans un autre dataset

Version imprimable

Bonjour,

j'ai besoin d'affecter 1 ou plusieurs ligne d'un dataset dans un auter, pour se faire j'utilise la fonction select. Mais j'ai une erreur avant la compilation
Code:

1 2 3 Dim dsMetalByOderID As DataSet = dsMetal.Clone() dsMetalByOderID.Tables(0).ImportRow(dsMetal.Tables(0).Select("s_CoilID = " + Me.DataGridViewCouvertureMetal.CurrentRow.Cells(8).Value.ToString()))
Y'a t'il moyen de faire ceci ? Ai-je oublier quelque chose ?

26/01/2012, 18h14
tomlev

Citation:

Envoyé par gueulederack

Mais j'ai une erreur avant la compilation

Et tu crois pas que tu aurais oublié d'indiquer un truc dans ta question ? :roll:

Soit dit en passant, la méthode Select que tu utilises n'a rien à voir avec Linq, c'est seulement la méthode DataTable.Select

Bonsoir à vous,

Tout d'abord une petite correction, ceci n'est pas du Linq.

Ensuite il suffit de regarder la définition des méthodes pour trouver l'erreur :
DataTable.ImportRow : Prend une row en entrée
DataTable.Select : sort un tableau de row

Donc avec cette manière il faudrait bouclé sur le résultat pour importer ligne par ligne.

Une autre voie de solution est :
Code:

1 2 3 Dim view As New DataView(table,"s_CoilID = " + Me.DataGridViewCouvertureMetal.CurrentRow.Cells(8).Value.ToString()), "s_CoilID", DataViewRowState.CurrentRows) Dim dsMetalByOderID As New DataSet dsMetalByOderID.Tables.Add(view.ToTable())
EDIT : tomlev plus rapide que moi ;)

Merci pour votre aide. Avec la solution
Code:

1 2 3 4 Dim view As New DataView(table,"s_CoilID = " + Me.DataGridViewCouvertureMetal.CurrentRow.Cells(8).Value.ToString()), "s_CoilID", DataViewRowState.CurrentRows) Dim dsMetalByOderID As New DataSet dsMetalByOderID.Tables.Add(View.ToTable())
j'ai 2 erreurs:

l'une sur le 2ème "s_CoilID",

Citation:

Error 44 Identifier expected. C:\MES Project Collection\Reports FR Studio\Version 0.01\ReportsFR.UI\FormCouvertureMetal.vb 328 133 Stainless.ReportsFR.UI

l'autre sur le View.ToTable(),

Citation:

Error 45 'ToTable' is not a member of 'System.Windows.Forms.View'. C:\MES Project Collection\Reports FR Studio\Version 0.01\ReportsFR.UI\FormCouvertureMetal.vb 330 36 Stainless.ReportsFR.UI

Citation:

Envoyé par gueulederack

l'autre sur le View.ToTable(), Error 45 'ToTable' is not a member of 'System.Windows.Forms.View'. C:\MES Project Collection\Reports FR Studio\Version 0.01\ReportsFR.UI\FormCouvertureMetal.vb 330 36 Stainless.ReportsFR.UI

DataView ne vient pas de 'System.Windows.Forms.View' mais de ' System.Data.DataView'

donc essayez avec :
Code:

1 2 3 Dim view As New System.Data.DataView(table,"s_CoilID = " + Me.DataGridViewCouvertureMetal.CurrentRow.Cells(8).Value.ToString()), "s_CoilID", DataViewRowState.CurrentRows) Dim dsMetalByOderID As New DataSet dsMetalByOderID.Tables.Add(View.ToTable())
Pour trouver cela, aller sur MSDN : http://msdn.microsoft.com/fr-fr/libr...(v=vs.80).aspx
Et regarder au niveau "Hiérarchie d'héritage"

ça ne marcait pas, mais j'ai fait ceci pour le bon fonctionnement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
  Dim dsMetalByOderID As DataSet = dsMetal.Clone
        dsMetalByOderID.Tables(0).Columns.Add("s_orderId", GetType(String))
        Dim drMetal As DataRow
        For Each ligneMToC As sBL.MetalToCommande In listMetalToCommande
            For Each ligneMetalSelect In ligneMToC.dm_Metal
                If ligneMetalSelect.s_CoilID = Me.DataGridViewCouvertureMetal.CurrentRow.Cells(8).Value.ToString() Then
                    drMetal = dsMetalByOderID.Tables(0).NewRow()
                    drMetal("d_Vx_Retard") = ligneMetalSelect.d_pds_cm_Vx_retard
                    drMetal("d_Retard") = ligneMetalSelect.d_pds_cm_Retard
                    drMetal("d_Heure") = ligneMetalSelect.d_pds_cm_Heure
                    drMetal("d_Avance_inf4s") = ligneMetalSelect.d_pds_cm_Avance4s
                    drMetal("d_Avance_inf8s") = ligneMetalSelect.d_pds_cm_Avance8s
                    drMetal("d_Avance_sup8s") = ligneMetalSelect.b_cm_AvSup8s
                    drMetal("d_pds_SsDelaiMetal") = ligneMetalSelect.d_pds_SsDelaiMetal
                    drMetal("s_CoilID") = ligneMetalSelect.s_CoilID
                    drMetal("s_orderId") = ligneMetalSelect.s_Orderid
                    dsMetalByOderID.Tables(0).Rows.Add(drMetal)
                End If
            Next
        Next

listMetalToCommande est un ObservableCollection

Je trouve ça terrible pour un Ingénieur ?!?! :calim2: de ne pas essayer de chercher l'erreur qui était bêtement une parenthèse de trop... :cry:
Voici le code fonctionnel sans la parenthèse :
Code:

1 2 3 Dim view As New System.Data.DataView(table, "s_CoilID = " & Me.DataGridViewCouvertureMetal.CurrentRow.Cells(8).Value.ToString(), "s_CoilID", DataViewRowState.CurrentRows) Dim dsMetalByOderID As New DataSet dsMetalByOderID.Tables.Add(View.ToTable())
et puis de venir avec un listMetalToCommande qu'on ne sais même pas d'où il sort (Pas dans les codes précité) :?

27/01/2012, 15h32
gueulederack

l'Observable collection est un objet présent dans la déclaration du Form. C'est un formulaire que je retravaillais pour un besoin spécifique. Ne t'inquiète pas, j'ai depuis ce matin refait tout ce bout de code pour utiliser ta solution, en prenant plus mon temps et enlevant tout le surplus de code. Le développeur qui avait fait ce formulaire avait une logique tres bizarre faire un bservableCollection d'une classe qui contenait de autres obervableCollection d'autres classe (détail_commande et détail_métal) alors que ces détail n'avait qu'une seule ligne à chaque fois !!!. En gros, je pense tout recasser et totu refaire. Mais ta solution est beaucoup mieux, c'est pour ça que je l'ai refaite. Mais j'ai essayé d'une façon "pourrie" pour comprendre la logique de l'ancien fonctionnement.