VB.NET利用LINQ从DataTable提取唯一值并复制新表报错

这个问题我之前也碰到过，核心原因是你对LINQ查询的返回类型理解偏差了——咱们一步步来拆解解决：

错误原因分析 #

你写的查询：

Dim query = From row In d1.AsEnumerable() Select row.Field(Of String)("Key") Distinct

返回的是字符串（String）的集合，而CopyToDataTable方法只能作用于IEnumerable(Of DataRow)类型的集合。又因为String本身实现了IEnumerable(Of Char)，所以编译器把你的集合识别成了EnumerableRowCollection(Of IEnumerable(Of Char))，自然找不到CopyToDataTable方法，这就是报错的根源。

正确解决思路 #

我们需要确保最终的LINQ查询返回的是DataRow的集合，而不是单独的列值。这里提供两种常用方案：

方案一：简洁链式调用（推荐） #

直接通过GroupBy按Key分组，然后取每个分组的第一行（你也可以根据需求取最后一行或特定条件的行），再转为新DataTable：

' 按Key分组，取每个分组的第一行，转为新DataTable
Dim newDt = d1.AsEnumerable()
              .GroupBy(Function(row) row.Field(Of String)("Key"))
              .Select(Function(group) group.First()) ' 若需最后一行则用group.Last()
              .CopyToDataTable()

方案二：分步实现（更直观） #

如果觉得链式调用不够清晰，可以拆成两步：先获取唯一Key集合，再筛选原表中对应的行：

' 第一步：提取所有唯一的Key值
Dim uniqueKeys = (From row In d1.AsEnumerable()
                 Select row.Field(Of String)("Key")).Distinct().ToList()

' 第二步：筛选原表中Key属于唯一集合的行（确保每个Key只保留一行）
Dim uniqueRows = From row In d1.AsEnumerable()
                 Group row By key = row.Field(Of String)("Key") Into Group
                 Select Group.First()

' 第三步：转为新DataTable
Dim newDt = uniqueRows.CopyToDataTable()

特殊场景处理 #

如果你只需要Key列的唯一值组成的单列表，而不是原表的整行，那不需要用CopyToDataTable，直接手动创建新表并添加行即可：

' 创建仅含Key列的新DataTable
Dim keyOnlyDt As New DataTable()
keyOnlyDt.Columns.Add("Key", GetType(String))

' 获取唯一Key值并添加到新表
Dim uniqueKeys = (From row In d1.AsEnumerable()
                 Select row.Field(Of String)("Key")).Distinct()
For Each key In uniqueKeys
    keyOnlyDt.Rows.Add(key)
Next

注意事项 #

• 如果原DataTable为空，或者分组后没有行，直接调用CopyToDataTable会抛出异常。这时候可以先判断集合是否有数据：

  Dim uniqueRows = d1.AsEnumerable()
                     .GroupBy(Function(row) row.Field(Of String)("Key"))
                     .Select(Function(g) g.First())
  Dim newDt As DataTable = If(uniqueRows.Any(), uniqueRows.CopyToDataTable(), d1.Clone())
  

  这样如果没有数据，会返回一个和原表结构相同的空表。

内容的提问来源于stack exchange，提问作者dunkleosteus