LINQ to DataTable, trouver les doublons

À l'aide de la suite de DataTable:

    Dim d As New DataTable()
    d.Columns.Add("Product", GetType(System.String))
    d.Columns.Add("Value", GetType(System.Double))

    d.Rows.Add(New Object() {"OAP1", 100.0})
    d.Rows.Add(New Object() {"EPP4", 100})
    d.Rows.Add(New Object() {"OAP1", 150.25})
    d.Rows.Add(New Object() {"OAPIN", 200.0})

Je suis en train d'utiliser LINQ pour identifier s'il y a plus d'un de tout type de produit. En SQL, ce serait de travailler à quelque chose comme:

SELECT Product FROM SOME_TABLE HAVING COUNT(*) > 1

Je ne peux pas pour la vie de moi de travailler sur la façon de le faire dans LINQ. J'étais quelqu'un qui fait quelque chose comme ceci:

    Dim q = From row In d.AsEnumerable()
            Group row By New { column1 = row("Product"), column2 = row("Value") }
            Into grp
            Where grp.Count() > 1
            Select row

    For Each item In q
        ' 'q' is not declared. It may be inaccessible due to its protection level.
    Next

Mais j'obtiens une erreur lorsque je tente de l'utiliser réellement "q". Des idées sur comment je peut faire ce travail?

  • C'était ce que j'étais suivant: thereforesystems.com/find-duplicates-using-linq
  • Vous souhaitez regrouper les deux Produits et de la valeur? Avec votre échantillon de données que l'habitude de vous donner tous les doublons.
  • Vous avez raison. J'ai édité la requête SQL afin de refléter ce que je veux réellement. Je veux trouver le double des types de Produit.
InformationsquelleAutor Dan Champagne | 2011-07-05
  1. 6

    Essayer cette

    Dim duplicates = d.AsEnumerable().GroupBy(Function(i) i.Field(Of String)("Product")).Where(Function(g) g.Count() > 1).Select(Function(g) g.Key)

For Each dup In duplicates
Next
    • Qui fonctionne! Merci beaucoup!
    • Nice et la solution la plus simple. Merci.
    InformationsquelleAutor Andrew Peacock
  2. 1

    Juste essayer

    Dim q = From row in d.AsEnumerable()
        Group row By row.Field(Of String)("Product")
        Into grp
        Where grp.Count() > 1
        Select { Country = row("Product"), Value = row("Value") }
    • J'ai essayé, et j'ai obtenu le message d'erreur suivant: Plage de nom de variable ne peut être déduit qu'à partir d'un simple ou qualifiée nom sans arguments.
    • Essayez d'utiliser le champ de la méthode d'extension.
    InformationsquelleAutor msarchet
  3. 0

    Je ne suis pas sûr de la syntaxe de la requête avec VB.NET par essayer cette

    Dim q = d.AsEnumerable().Select(Function(r) New With { .Column1 = r("Product"), .Column2 = r("Value")}) _
                    .GroupBy(Function(r) New With {r.Column1, r.Column2}) _
                    .Where(Function(g) g.Count() >1 )

For Each item In q
    Console.WriteLine(item.Key)
Next
    • Avec "Avec de Nouvelles" la partie a été de me donner une erreur du compilateur.
    InformationsquelleAutor Bala R