摘要： Public Shared Sub UpdateFrom(ByVal value As Object, ByVal values As NameValueCollection, ByVal objectPrefix As String) Dim type As Type = value.GetType Dim name As String = type.Name Dim properties As PropertyInfo() = type.GetProperties Dim info As PropertyInfo For Each info In properties Dim str2 As String = info.Name If String.IsNullOrEmpty(objectPrefix) = False Then str2 = (objectPr 阅读全文