Dim t jako transakcja
Ciemnawy tran (10) jako myTransactions
Ciemnawy fromFields Jako FieldInfo () = t.GetType.GetFields (BindingFlags.NonPublic Lub BindingFlags.Instance Lub BindingFlags.Public)
Ciemnawy toFields Jako FieldInfo () = tran (i) .GetType.GetFields (BindingFlags.NonPublic Lub BindingFlags.Instance Lub BindingFlags.Public)
Ciemnawy myMember Jako MemberInfo
Ciemnawy myField Jako MemberInfo
Ciemnawy myAttribs () Atrybut
Ciemnawy myField Jako FieldInfo
Ciemnawy myToField Jako FieldInfo
'I móc the śródpolny lista
'teraz pewny dlaczego
Dla ToFields myField W toFields
'myToField = Array.Find (fromFields, AddressOf MatchField)
'pomoc
Następnie
|