vb.net - LINQ to DataTable，查找重复行

Question

使用以下数据表:

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

我正在尝试使用 LINQ 来确定是否存在不止一种任何类型的产品。在 SQL 中，这将类似于:

SELECT Product FROM SOME_TABLE HAVING COUNT(*) > 1

我一辈子都弄不明白如何在 LINQ 中执行此操作。我正在关注一个人做了这样的事情:

    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

但是当我尝试实际使用“q”时出现错误。关于如何使这项工作有任何想法吗？

Answer 1

试试这个

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