想要通過其名稱在vb.net中使用字符串值訪問變量

Question

net。我嘗試從字符串值作爲其名稱訪問變量。

我已經創建了幾乎50類變量類的類型，如A1，A2，A3作爲類類型。並在數據表中包含50個項目的列表。我想那是什麼時候喜歡

dim dr as datarow 
    for each dr in dt.rows 
    dim newstring as string = dr(0).tostring 
    'Here I have the problem, newstring will return A1 or A2 or A3 and I dont want to use if-then or Select case statements becose 
it will lead me toward hundreds of lines. I want to access newstring.property=something 

    Next 

訪問的問題是，上面會返回一個字符串值，我已經聲明的變量相同的名稱，返回的newstring。我只想訪問那個名稱爲newstring的變量。請幫幫我。

Answer 1

您應該爲每個座位

Private Class Seat 
    Public Property Name As String 
    Public Property IsReserved As Boolean 
    Public Sub New(ByVal name As String) 
     Me.Name = name 
    End Sub 
End Class 

創建一個類的填充列表與每個座位（這些可以在任何你想要的順序）

'create your seats 
Dim seats As New List(Of Seat) 
seats.Add(New Seat("A3")) 
seats.Add(New Seat("B6")) 
seats.Add(New Seat("A1")) 
'etc. 

然後你可以使用LINQ表達式找到與您的數據庫中的名稱相匹配的座位：

'find the seat in the list that matches the name 
Dim dr As DataRow 
For Each dr In dt.rows 
    Dim newstring As String = dr(0).ToString 
    Dim seat = seats.Find(Function(x) x.Name = newstring) 
    seat.Property = Something 
Next