Other way to get/set Visual Basic ObservableCollection property - wpf

Question

Id like to know if there are other way to set/get value of an observableCollection Property. Please see below example
Let say i have
Public Class Record
public Property Field1 as string
public Property Field2 as string
End Class
Public RecordCollection as new ObservableCollection(Of Record)
Public sRecord as Record
Public Sub TestRecord()
sRecord = new Record
sRecord.Field1 = "test"
sRecord.Field2 = "test2"
RecordCollection.add(sRecord)
listview1.ItemsSource = RecordCollection
End Sub
My Question is How can i set or gets Record properties like below example?
Public Sub TestRecord()
sRecord = new Record
sRecord("Field1") = "test"
sRecord("Field2") = "test2"
End Sub
or is there any other way to this?

Answer 1

Here example of using System.Reflection for your case
Testing class
Public Class Record
Public Property Field1 As String
Public Property Field2 As String
End Class
Example
Dim data As New DataTable()
data.Columns.Add("Field1", GetType(String))
data.Columns.Add("Field2", GetType(String))
Dim dr As DataRow
dr = data.NewRow()
dr.SetField("Field1", "0")
dr.SetField("Field2", "Zero")
data.Rows.Add(dr)
dr = data.NewRow()
dr.SetField("Field1", "1")
dr.SetField("Field2", "One")
data.Rows.Add(dr)
For Each row As DataRow In data.Rows
Dim temp As New Record()
For Each prop As PropertyInfo In GetType(Record).GetProperties()
If data.Columns.Contains(prop.Name) = True Then
prop.SetValue(temp, row(prop.Name))
End If
Next
Console.WriteLine($"{temp.Field1}, {temp.Field2}")
Next
Will print result in the console:
0, Zero
1, One
But again, consider of using Entity Framework or some other ORM(object-relational mapper) framework.

Answer 2

You can use the Default Property functionality in the Record class:
Public Class Record
Private fields As New Dictionary(Of String, String)
Public Property Field1 As String
Get
Return fields("Field1")
End Get
Set(value As String)
fields("Field1") = value
End Set
End Property
Public Property Field2 As String
'Same code as Field1 but with "Field2" of course
Default Public Property Item(field As String)
Get
Return fields(field)
End Get
Set(value)
fields(field) = value
End Set
End Property
End Class
Access is then possible like:
Dim record As New Record
record("Field1") = "Hello Default Property!"
record.Field2 = "Hello Field2 !"
Console.WriteLine(record("Field1"))