Discussion :

[gueulederack]

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 :

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

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 ?

[tomlev]

Mais j'ai une erreur avant la compilation

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

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

[Sankasssss]

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 :

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

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

[gueulederack]

Merci pour votre aide. Avec la solution

Code :

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

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",

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(),

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

[Sankasssss]

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 :

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

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"

[gueulederack]

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

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
 
  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

[Sankasssss]

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

Code :

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

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é)