VB.NET中如何将未知数据库结果集结构转换为可直接访问属性的无类型Object？

针对你遇到的问题——需要动态生成结构未知但能像强类型类一样直接访问属性的对象，同时免除用户定义实体类的麻烦——ExpandoObject是最适合的解决方案，它完美契合你的需求场景。

为什么选择ExpandoObject？ #

ExpandoObject是.NET框架提供的动态类型，允许你在运行时动态添加属性，并且支持直接通过点语法（obj.PropertyName）访问这些属性，完全不需要提前定义实体类。这正好解决了你从XML指令获取未知列名后，动态构建结果对象的问题。

完整实现代码 #

下面是修改后的GetData函数，结合ExpandoObject实现动态属性添加：

Imports System.Dynamic
Imports System.Collections.Generic

Public Function GetData(ByVal instructions As String) As Object
    ' --- 第一步：模拟数据检索逻辑（实际场景替换为你的XML解析+数据库查询） ---
    ' 从XML指令解析得到的列名列表
    Dim cols As New List(Of String) From {"BP", "NAME", "VAT"}
    ' 从数据库查询得到的单行数据（实际场景可从DataRow、DataReader等转换）
    Dim rowData As New Dictionary(Of String, Object) From {
        {"BP", "12345"},
        {"NAME", "Acme Corp"},
        {"VAT", "GB123456789"}
    }

    ' --- 第二步：动态构建可访问属性的对象 ---
    ' 创建ExpandoObject实例，同时转换为字典以便动态添加属性
    Dim result As ExpandoObject = New ExpandoObject()
    Dim resultDict As IDictionary(Of String, Object) = result

    ' 遍历列名，将对应的数据添加为对象属性
    For Each colName In cols
        If rowData.ContainsKey(colName) Then
            resultDict(colName) = rowData(colName)
        End If
    Next

    Return result
End Function

使用示例 #

调用函数后，你可以像访问普通类属性一样直接获取值：

' 传入你的XML指令字符串
Dim instructionsXml As String = "你的XML指令内容"
Dim dynamicObj = GetData(instructionsXml)

' 直接通过属性名访问，完全像强类型对象一样
MsgBox($"BP编号: {dynamicObj.BP}, 公司名称: {dynamicObj.NAME}, VAT号: {dynamicObj.VAT}")

关键注意事项 #

1. Option Strict设置：如果你的项目Option Strict设置为On，直接使用点语法会报错，此时可以将返回值声明为Dynamic类型（VB.NET 4.0及以上支持），或者暂时将Option Strict设为Off以支持动态绑定。
2. 多行数据场景：如果需要返回多行结果，只需将返回类型改为List(Of ExpandoObject)，遍历每一行数据重复上述构建逻辑即可。
3. Web服务兼容性：ExpandoObject在Web服务场景中表现良好，无论是序列化JSON还是XML，都能被正确解析为普通的键值对结构，客户端可以直接读取属性。

对比其他方案的优势 #

• 匿名类型：只能在编译时确定属性结构，无法动态添加属性，完全不适合你的未知列名场景。
• JSON反序列化：如果使用JsonConvert.DeserializeObject(Of Object)(json)，得到的对象无法直接用点语法访问属性，需要通过索引或反射，体验远不如ExpandoObject。
• 泛型+反射：要求用户提前定义实体类，违背了你“免除用户创建实体类麻烦”的核心需求。

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