변수를 멤버 이름으로 객체에 전달 하시겠습니까?

Question

이것이 가능한지 확실하지 않지만 변수의 값을 객체의 멤버 이름으로 전달할 수 있어야합니다.

기본적으로 나는 그 중 일부가 컬렉션을 포함 할 수있는 많은 개체가있는 wdsl을 사용하고 있습니다. 데이터 그리드를 작성하여 컬렉션에 데이터를 표시해야하지만 지금 당장은 간단합니다. 얼마나 많은 효과적인 열과 그 이름과 유형을 정의하는 각 객체/콜렉션에 대한 코드를 작성하십시오.

이 긴 호흡이 조금이라도 잘 작동하지만, WDSL 변화와 개체를 수집 내용 변경 (이름, 유형 등)

내가해야 할 것은 개체 이름을 통과 할 수있을 것입니다 경우도 깰 것 객체에 콜렉션이 포함되어있는 경우 (PropertyType에는 [] 포함), 이름을 읽고 해당 이름을 올바른 레벨로 이동하여 "열"이름 및 데이터 유형을 검색하는 루프로 전달합니다 .

나는 아래 예제에서 CollName의 문자열 값을 분명히 평가하지 않기 때문에 객체 이름으로 루프에 콜렉션 이름을 전달하고자 할 때까지 거의 모든 작업을 수행 할 수 있습니다. CollName은 물론 객체의 멤버가 아니지만 실제 값이 될 변수입니다.

Sub IterateObject(objName) 
    Dim CollName = "" 
    For Each m As System.Reflection.PropertyInfo In objName.GetType().GetProperties() 
     If m.CanRead Then 
      If InStr(m.PropertyType.ToString, "[]") <> 0 Then 
       CollName = m.Name 
      End If 
     End If 
    Next 
    For Each p As System.Reflection.PropertyInfo In objName.CollName(2).GetType().GetProperties() 
     If p.CanRead Then 
      If p.Name <> "ExtensionData" Then 
       MsgBox(p.Name & " - " & (p.PropertyType.ToString)) 
      End If 
     End If 
    Next 
End Sub 

효과적으로 수행하는 방법이 있나요 objName.(value of CollName)(2).GetType().GetProperties()

Answer 1

이 내가

Sub IterateObject(objName) 
    Dim CollName = "" 

    For Each m As System.Reflection.PropertyInfo In objName.GetType().GetProperties() 
     If m.CanRead Then 
      If InStr(m.PropertyType.ToString, "[]") <> 0 Then 
       CollName = m.Name 
      End If 
     End If 
    Next 
    Dim CollObj 
    CollObj = CallByName(objName, CollName, CallType.Get) 
    For Each p As System.Reflection.PropertyInfo In CollObj(0).GetType().GetProperties() 
     If p.CanRead Then 
      If p.Name <> "ExtensionData" Then 
       MsgBox(p.Name & " - " & (p.PropertyType.ToString)) 
      End If 
     End If 
    Next 
End Sub