如何在VB.NET中实现类似VFP的动态字符串变量名赋值功能？

VFP里那种直接用字符串作为变量名的语法，VB.NET本身没有原生支持，但可以用下面两种简便方法实现类似效果，满足你用表格里的特定变量名来存取值的需求：

方法一：使用Dictionary（类型安全，推荐） #

Dictionary是键值对集合，你可以把表格里的变量名作为Key，对应的值作为Value，既能用自定义名称访问，又能保证类型安全。

示例代码：

' 假设你的表格数据已经读取到一个DataTable里
Dim tableVariables As New Dictionary(Of String, Object)()

For Each row As DataRow In yourDataTable.Rows
    Dim varName As String = row("变量名").ToString()
    Dim varValue As Object = row("变量值")
    tableVariables(varName) = varValue
Next

' 访问变量的方式
Dim userName As String = tableVariables("UserName").ToString()
Dim age As Integer = CInt(tableVariables("Age"))

这种方法性能好，还能通过泛型指定值的类型（比如Dictionary(Of String, String)如果都是字符串值），避免不必要的类型转换错误。

方法二：使用ExpandoObject（更接近VFP动态变量的体验） #

ExpandoObject允许你动态添加属性，就像直接声明变量一样用.访问，和VFP的用法更贴近。

示例代码：

Imports System.Dynamic

Dim dynamicVars As Object = New ExpandoObject()
Dim dynamicDict As IDictionary(Of String, Object) = dynamicVars

For Each row As DataRow In yourDataTable.Rows
    Dim varName As String = row("变量名").ToString()
    Dim varValue As Object = row("变量值")
    dynamicDict(varName) = varValue
Next

' 直接用属性名访问，和VFP的变量用法几乎一致
Console.WriteLine(dynamicVars.UserName)
Console.WriteLine(dynamicVars.Age)

注意：使用ExpandoObject时，VB.NET的智能感知不会提示这些动态属性，编译时也不会检查属性名是否存在，运行时如果写错名称会报错。

不推荐的方案：反射动态添加类属性 #

虽然可以通过反射在自定义类里动态添加属性，但这种方法性能差、代码复杂，对于大量变量的场景完全没必要，不如上面两种方案简便高效。

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