Dim type As Type = vCRCommunication.GetType
Dim [property] As PropertyInfo = type.GetProperty("Orderno")
If [property] Is Nothing Then
Else
Dim o As Object = [property].GetValue(vCRCommunication, Nothing)
End If
Dim type As Type = vCRCommunication.GetType
Dim [property] As PropertyInfo = type.GetProperty("Orderno")
If [property] Is Nothing Then
Else
Dim o As Object = [property].GetValue(vCRCommunication, Nothing)
End If
转载于:https://www.cnblogs.com/bloodyboy/p/3555926.html