Discussion :

[graphicsxp]

Bonjour,
Je n'arrive pas a importer une row d'un dataview vers un autre (structure + données). Je n'arrive qu'a importer la structure:

Code :

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

1
2
3
4
5
6
7
8
For Each row As DataRowView In dvOrig
'condition d'importation
'...
 Dim rowView As DataRowView = dvDest.AddNew
 rowView = row  <- importation de la structure mais pas des données
 rowView.EndEdit()
'...
Next

pouvez vous m'aider?
merci

[neguib]

Et en passant par

Code :

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

1
2
3
4
5
 
Dim dvDest As New DataView(dvOrig.ToTable(), _ 
           monNouveauFiltre, _ 
           monExpressionTri, _ 
           monDataViewRowState)

:

[graphicsxp]

Désolé pour le titre, j'ai vu que tu avais édité

[EDIT]
Je reviens sur ce sujet. En fait je viens de m'apercevoir qu'avec la réponse que tu me donnes, tu sous entends que dvDest est vide a la base.
Or dvDest contient des enregistrements, je veux juste en 'transférer' de dvOrig vers dvDest, et ensuite supprimé ces enregistrements de dvOrig.

J'ai déjà la fonction pour supprimer la datarow basé sur une condition:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Dim drResult As DataRowView()
        dvOrig.Sort = "QueryGroupId"
 
        For i As Integer = dvOrig.Count - 1 To 0 Step -1
            drResult = dvOrig.FindRows(dvOrig(i).Item("QueryGroupId"))
 
            If Not drResult.Length > 1 Then
                dvOrig.Item(i).Delete()
            End If
        Next
        dvOrig.Table.AcceptChanges()

[EDIT 2]

Bon ca fonctionne comme ca, mais c'est pas jolie jolie...

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 dt As DataTable = dvDest.ToTable
       Dim drResult As DataRowView()
       dvOrig.Sort = "QueryGroupId"
 
        For i As Integer = dvOrig.Count - 1 To 0 Step -1
            drResult = dvOrig.FindRows(dvOrig(i).Item("QueryGroupId"))
             If Not drResult.Length > 1 Then
                Dim r As DataRow = dt.NewRow
                r("WebId") = dvOrig(i).Item("WebId")
                r("QueryId") = dvOrig(i).Item("QueryId")
                r("QueryName") = dvOrig(i).Item("QueryName")
                r("Attributes") = dvOrig(i).Item("Attributes")
                r("SortOrder") = dvOrig(i).Item("SortOrder")
                r("QueryGroupId") = dvOrig(i).Item("QueryGroupId")
                r("QueryGroupName") = dvOrig(i).Item("QueryGroupName")
                dt.Rows.Add(r)
                dvOrig.Item(i).Delete()
            End If
        Next
        dvOrig.Table.AcceptChanges()
        dvDest.Table = dt

[graphicsxp]

Hop, la solution est trouvée et est beaucoup plus simple que ce que je faisais avant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'filter queries which don't belong to any group
            dvSingleQueries.Table = dtQueries
            dvSingleQueries.RowFilter = "QueryGroupId is NULL"
 
            'filter queries which belong to a group
            dvGroupQueries.Table = dtQueries
            dvGroupQueries.RowFilter = "QueryGroupId is not NULL"
 
            dvGroupQueries.Sort = "QueryGroupId"
            For i As Integer = dvGroupQueries.Count - 1 To 0 Step -1
                Dim dvTest As New DataView(dtQueries)
                dvTest.RowFilter = "QuerygroupId = '" & dvGroupQueries(i)("QueryGroupId") & "'"
                If dvTest.Count = 1 Then dvGroupQueries(i)("QueryGroupId") = DBNull.Value
            Next