VB.NET LINQ to DataSet左外连接报错：匿名类型无法转DataRow

这个问题我太熟悉了！你遇到的BC36754错误，核心原因是CopyToDataTable方法只能直接处理IEnumerable(Of DataRow)类型的集合，但你的LINQ查询返回的是匿名类型集合，两者类型不兼容，自然没法直接转换。结合你的编译选项（Option Strict On等），下面给你两种靠谱的解决办法：

方法一：手动构建DataTable并填充（最直观可控） #

这种方式完全符合严格类型检查的要求，还能灵活处理左连接带来的空值情况（比如你的示例中John的ID在Dt2里没有匹配，YearOfBirth会是空值）。

' 初始化目标DataTable的结构
Dim Dt3 As New DataTable()
Dt3.Columns.Add("ID", GetType(Integer))
Dt3.Columns.Add("Name", GetType(String))
Dt3.Columns.Add("YearOfBirth", GetType(Integer))

' 保留原LINQ查询（返回匿名类型，适配左连接空值场景）
Dim query = From dr1 In Dt1.AsEnumerable()
            Group Join dr2 In Dt2.AsEnumerable()
                On dr1.Field(Of Integer)("ID") Equals dr2.Field(Of Integer)("ID")
                Into joined = Group
            From j In joined.DefaultIfEmpty()
            Select New With {
                .ID = dr1.Field(Of Integer)("ID"),
                .Name = dr1.Field(Of String)("Name"),
                .YearOfBirth = If(j IsNot Nothing, j.Field(Of Integer?)("YearOfBirth"), Nothing)
            }

' 遍历查询结果，逐行添加到Dt3
For Each item In query
    Dim newRow As DataRow = Dt3.NewRow()
    newRow("ID") = item.ID
    newRow("Name") = item.Name
    ' 处理空值：将可空整数的空值转换为DataTable认可的DBNull.Value
    newRow("YearOfBirth") = If(item.YearOfBirth.HasValue, item.YearOfBirth.Value, DBNull.Value)
    Dt3.Rows.Add(newRow)
Next

关键说明： #

• 我把匿名类型中YearOfBirth的类型改为Integer?（可空整数），这样能兼容左连接时的空值场景，完全符合Option Strict On的类型检查要求。
• 填充DataRow时，用If运算符把可空整数的空值转换为DBNull.Value，确保DataTable的数据格式合法。

方法二：修改LINQ查询直接返回DataRow #

如果你想要用CopyToDataTable，可以让LINQ查询直接生成DataRow对象，这样就能直接调用方法了：

' 先创建目标DataTable的结构
Dim Dt3 As New DataTable()
Dt3.Columns.Add("ID", GetType(Integer))
Dt3.Columns.Add("Name", GetType(String))
Dt3.Columns.Add("YearOfBirth", GetType(Integer))

' 修改LINQ查询，直接生成DataRow
Dim query As IEnumerable(Of DataRow) = 
    From dr1 In Dt1.AsEnumerable()
    Group Join dr2 In Dt2.AsEnumerable()
        On dr1.Field(Of Integer)("ID") Equals dr2.Field(Of Integer)("ID")
        Into joined = Group
    From j In joined.DefaultIfEmpty()
    Select
        Dim newRow = Dt3.NewRow()
        newRow("ID") = dr1.Field(Of Integer)("ID")
        newRow("Name") = dr1.Field(Of String)("Name")
        newRow("YearOfBirth") = If(j IsNot Nothing, j.Field(Of Integer)("YearOfBirth"), DBNull.Value)
        newRow

' 直接将查询结果导入Dt3
Dt3.Rows.AddRange(query.ToArray())

关键说明： #

• 这里在LINQ的Select子句中直接创建Dt3的DataRow并赋值，确保返回的是IEnumerable(Of DataRow)类型，完美匹配CopyToDataTable的要求（或者直接用Rows.AddRange导入）。
• 同样处理了左连接的空值情况，避免类型错误。

原代码出错的核心原因 #

CopyToDataTable<T>方法要求泛型参数T必须是DataRow或者实现了IDataRecord接口，而你原查询返回的匿名类型既不是DataRow，也没有实现该接口，因此编译器抛出类型转换错误。

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