Vb.Net 通过反射获取类的字段值

'IU2DefineData类名

'IU2DefineData类中IU2AddressInf类名

'address是IU2AddressInf类中的字段

Private Shared mIU2Data As IU2DefineData

Public Function GetDate() As DataTable
Dim t As Type = GetType(IU2DefineData)
Dim address As FieldInfo = GetType(IU2AddressInf).GetField("address`")
Dim value As FieldInfo = GetType(IU2AddressInf).GetField("value")
Dim comment As FieldInfo = GetType(IU2AddressInf).GetField("Comment")
Dim dt As DataTable = New DataTable
Dim rows As DataRow
Dim fieldKey As String = Nothing
Dim fields() As FieldInfo
Try
dt.Columns.Add("address",GetType(String))
dt.Columns.Add("value",GetType(String))
dt.Columns.Add("`data",GetType(String))
dt.Columns.Add("Comment",GetType(String))
fields = t.GetFields()
For Each field As FieldInfo In fields

'取到类中变量值 fieldKey = field.Name Dim addressValue As String = address.GetValue(field.GetValue(mIU2Data)) Dim strvalue As String = value.GetValue(field.GetValue(mIU2Data)) Dim strComment As String = comment.GetValue(field.GetValue(mIU2Data)) rows = dt.NewRow rows.Item("address") = fieldKey rows.Item("value") = addressValue rows.Item("data") = strvalue rows.Item("Comment") = strComment dt.Rows.Add(rows)` Next Catch ex As Exception End Try Return dt End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!