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