[VB.Net][DataView] Comment importer un DataRowView ?

Version imprimable

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:

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

Re: [vb.net][dataview] importer une row

Et en passant par

Code:

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

:idea: :?:

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:

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... :cry:

Code:

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

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

Code:

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