VB .NET按字符串值访问类属性

Question

我有一个函数可以更新数据库中的客户端。传入一个客户端对象，以及应该更新的字段/属性的字符串数组。我需要一种方法来访问客户端对象中的每个属性，这取决于数组中的内容。基本上，我正在寻找VB.NET相当于这个javascript：

var fields = ["Firstname","Lastname","DOB"]; 
for(field in fields) 
{ 
    var thisField = fields[field]; 
    client[thisField] = obj[thisField]; 
} 

任何帮助将不胜感激！感谢堆栈。

Answer 1

您可以使用Reflection来做到这一点。在不了解数据对象如何设置的情况下，我不能给你一个完美的例子，但这里的一般思路是：

Dim myPerson As New Person 
myPerson.FirstName = "John" 
myPerson.LastName = "Doe" 
myPerson.DOB  = #1/1/2000# 

Dim myUpdates As New Dictionary(Of String, Object) 
myUpdates.Add("FirstName", "Adam") 
myUpdates.Add("LastName" , "Maras") 
myUpdates.Add("DOB"  , #1/1/1990#) 

Dim personType As Type = GetType(Person) 

For Each kvp As KeyValuePair(Of String, Object) In myUpdates 
    Dim propInfo As PropertyInfo = personType.GetProperty(kvp.Key) 

    If propInfo IsNot Nothing Then 
     propInfo.SetValue(myPerson, kvp.Value) 
    End If 
Next