爱老婆的猪

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

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

posted on 2014-02-19 14:59  bloodyboy  阅读(1087)  评论(0编辑  收藏  举报