如何在LINQ中创建可变Select语句？VB.NET视图构建器开发需求

嘿，这个场景我太熟悉了——要做一个能适配动态字段的DataTable合并工具，核心就是摆脱硬编码字段名，让代码跟着表结构自动调整对吧？下面给你一套完整的实现方案：

核心思路 #

因为两个源表的字段会频繁变更，所以绝对不能写死字段名。我们要做的是：

• 动态生成合并后表的结构（自动适配源表字段）
• 用LINQ完成关联查询（支持内连接/左连接）
• 动态填充合并表的行数据（不用逐个字段硬编码）

步骤1：配置关联键与创建合并表结构 #

首先得确定两个表的关联字段（比如ID），这个可以做成可配置的（比如从配置文件读取）。然后根据两个源表的字段，自动创建合并表的列（给不同表的字段加前缀避免重名）：

' 可配置的关联键（比如从App.config读取）
Dim joinKey As String = "ID"

' 初始化合并后的DataTable
Dim combinedTable As New DataTable("CombinedDataTable")

' 批量添加AddressList的字段，前缀"Addr_"避免重名
For Each col As DataColumn In AddressListDatatable.Columns
    combinedTable.Columns.Add($"Addr_{col.ColumnName}", col.DataType)
Next

' 批量添加Matrix的字段，排除关联键（避免重复），前缀"Mat_"
For Each col As DataColumn In MatrixDatatable.Columns
    If col.ColumnName <> joinKey Then
        combinedTable.Columns.Add($"Mat_{col.ColumnName}", col.DataType)
    End If
Next

步骤2：LINQ关联查询与动态填充数据 #

内连接（仅保留匹配到的行） #

如果只需要两个表中关联键匹配的行，用普通的Join：

' 执行内连接查询
Dim joinedRows = From addrRow In AddressListDatatable.AsEnumerable()
                 Join matRow In MatrixDatatable.AsEnumerable()
                 On addrRow(joinKey) Equals matRow(joinKey)
                 Select New With { .AddrRow = addrRow, .MatRow = matRow }

' 动态填充合并表（处理空值避免报错）
For Each item In joinedRows
    Dim newRow As DataRow = combinedTable.NewRow()
    
    ' 填充AddressList的所有字段
    For Each col As DataColumn In AddressListDatatable.Columns
        newRow($"Addr_{col.ColumnName}") = If(item.AddrRow.IsNull(col.ColumnName), DBNull.Value, item.AddrRow(col.ColumnName))
    Next
    
    ' 填充Matrix的非关联键字段
    For Each col As DataColumn In MatrixDatatable.Columns
        If col.ColumnName <> joinKey Then
            newRow($"Mat_{col.ColumnName}") = If(item.MatRow.IsNull(col.ColumnName), DBNull.Value, item.MatRow(col.ColumnName))
        End If
    Next
    
    combinedTable.Rows.Add(newRow)
Next

左连接（保留AddressList的所有行） #

如果需要保留左表的所有数据，用Group Join + DefaultIfEmpty实现左连接：

' 执行左连接查询
Dim leftJoinedRows = From addrRow In AddressListDatatable.AsEnumerable()
                     Group Join matRow In MatrixDatatable.AsEnumerable()
                     On addrRow(joinKey) Equals matRow(joinKey) Into MatGroup = Group
                     From matRow In MatGroup.DefaultIfEmpty() ' 匹配不到时返回null
                     Select New With { .AddrRow = addrRow, .MatRow = matRow }

' 填充左连接结果（处理Matrix行可能为null的情况）
For Each item In leftJoinedRows
    Dim newRow As DataRow = combinedTable.NewRow()
    
    ' 填充AddressList字段
    For Each col As DataColumn In AddressListDatatable.Columns
        newRow($"Addr_{col.ColumnName}") = If(item.AddrRow.IsNull(col.ColumnName), DBNull.Value, item.AddrRow(col.ColumnName))
    Next
    
    ' 填充Matrix字段，判断MatRow是否存在
    For Each col As DataColumn In MatrixDatatable.Columns
        If col.ColumnName <> joinKey Then
            newRow($"Mat_{col.ColumnName}") = If(item.MatRow Is Nothing OrElse item.MatRow.IsNull(col.ColumnName), DBNull.Value, item.MatRow(col.ColumnName))
        End If
    Next
    
    combinedTable.Rows.Add(newRow)
Next

进阶：自定义选择特定字段 #

如果不需要合并所有字段，而是要自定义选择特定字段，可以加一个配置列表，完全不用修改核心逻辑：

' 可配置的需要保留的字段列表
Dim selectedFields As New List(Of String) From {
    "Addr_ID", "Addr_ContactName", "Mat_OrderValue", "Mat_OrderDate"
}

' 创建合并表时只添加选中的字段
For Each fieldName As String In selectedFields
    ' 拆分前缀和原字段名
    Dim parts = fieldName.Split("_")
    Dim sourceTable As DataTable = If(parts(0) = "Addr", AddressListDatatable, MatrixDatatable)
    Dim sourceColName = parts(1)
    
    combinedTable.Columns.Add(fieldName, sourceTable.Columns(sourceColName).DataType)
Next

' 填充时也只处理选中的字段
For Each item In joinedRows
    Dim newRow As DataRow = combinedTable.NewRow()
    
    For Each fieldName As String In selectedFields
        Dim parts = fieldName.Split("_")
        Dim sourceRow = If(parts(0) = "Addr", item.AddrRow, item.MatRow)
        Dim sourceColName = parts(1)
        
        newRow(fieldName) = If(sourceRow Is Nothing OrElse sourceRow.IsNull(sourceColName), DBNull.Value, sourceRow(sourceColName))
    Next
    
    combinedTable.Rows.Add(newRow)
Next

这样不管源表的字段怎么加删，只要调整joinKey和selectedFields配置，代码就能自动适配，完美解决字段频繁变更的问题。

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