Visual Basic

Public Function Get_PK(ctx As MyEntities, entity As Object) As String
    Dim objectContext = DirectCast(ctx, System.Data.Entity.Infrastructure.IObjectContextAdapter).ObjectContext
    Dim t As Type = entity.GetType.BaseType 
    Dim m As MethodInfo = objectContext.GetType().GetMethod("CreateObjectSet", New Type() {})
    Dim generic As MethodInfo = m.MakeGenericMethod(t)
    Dim st As Object = generic.Invoke(objectContext, Nothing)
    Dim entitySetPI As PropertyInfo = st.GetType().GetProperty("EntitySet")
    Dim entitySet As Metadata.Edm.EntitySet = DirectCast(entitySetPI.GetValue(st, Nothing), Metadata.Edm.EntitySet)
    Dim keyNames As IEnumerable(Of String) = entitySet.ElementType.KeyMembers.[Select](Function(k) k.Name)
    Return keyNames(0)
End Function

Public Function Get_FK(ctx As MyEntities, entity As Object, parenttable As String) As String
    Dim objectCont = DirectCast(ctx, System.Data.Entity.Infrastructure.IObjectContextAdapter).ObjectContext
    Dim t As Type = entity.GetType.BaseType
    Dim m As MethodInfo = objcont.GetType().GetMethod("CreateObjectSet", New Type() {})
    Dim generic As MethodInfo = m.MakeGenericMethod(t)
    Dim st As Object = generic.Invoke(objcont, Nothing)
    Dim entitySetPI As PropertyInfo = st.GetType().GetProperty("EntitySet")
    Dim entitySet As Metadata.Edm.EntitySet = DirectCast(entitySetPI.GetValue(st, Nothing), Metadata.Edm.EntitySet)
    Dim elementtype = entitySet.ElementType
    Dim entitymember = elementtype.NavigationProperties.Where(Function(t1) t1.ToEndMember.Name = parenttable)
    Return entitymember.First.GetDependentProperties.First.Name
End Function

_dt.Columns(5)

_dt.Rows(i)(_dt.Columns(5).ColumnName()).ToString()

_dt.Rows(i)(5).ToString()

_htmlTable.Append("Total # parts: " + _dt.Rows(i)(5).ToString() + "   ")

_htmlTable.Append("Total # parts: ").Append(_dt.Rows(i)(5).ToString()).Append("   ")

Dim customList As Type = GetType(List(Of )).MakeGenericType(tempType)
Dim objectList As IList = CType(Activator.CreateInstance(customList), IList)

' Copy items from a PropertyInfo list to the object just created
Dim o As Object = objectThatContainsListToCopyFrom
Dim p As PropertyInfo = o.[GetType]().GetProperty("PropertyName")
Dim copyFrom As IEnumerable = p.GetValue(o, Nothing)
For Each item As Object In copyFrom
    objectList.Add(item)
Next
' Will throw exceptions if the types don't match.
' Iterate and access the items of "objectList"
' (objectList declared above as non-generic IEnumerable)
For Each item As Object In objectList
    Debug.WriteLine(item.ToString())
Next

Error  103 Too few type arguments to 'System.Collections.Generic.IList(Of T)'

Option Explicit On
Option Strict On

Imports System.Reflection

Module Module1

    Public Class ChildClass
    End Class

    Public Class SomeClass
        Public Property Children As ICollection(Of ChildClass) = New HashSet(Of ChildClass)
    End Class

    Sub Main()
        Dim tempType = GetType(ChildClass)
        Dim someClass = New SomeClass
        someClass.Children.Add(New ChildClass)

        Dim customList As Type = GetType(List(Of )).MakeGenericType(tempType)
        Dim objectList As IList = CType(Activator.CreateInstance(customList), IList)

        ' Copy items from a PropertyInfo list to the object just created
        Dim o As Object = someClass
        Dim p As PropertyInfo = o.[GetType]().GetProperty("Children")
        Dim copyFrom As IEnumerable = CType(p.GetValue(o, Nothing), IEnumerable)
        For Each item As Object In copyFrom
            objectList.Add(item)
        Next
        ' Will throw exceptions if the types don't match.
        ' Iterate and access the items of "objectList"
        ' (objectList declared above as non-generic IEnumerable)
        For Each item As Object In objectList
            Debug.WriteLine(item.ToString())
        Next
    End Sub

End Module

Error  103 Too few type arguments to 'System.Collections.Generic.IList(Of T)'

Imports System.Collections
Imports System.Collections.Generic

Imports System.Collections

1. I want first to initialize an empty list.
   Because if I have just the :
   

   dim itemlist as Ilist

Dim customList As Type = GetType(List(Of )).MakeGenericType(GetType(MyClass))
        itemlist = CType(Activator.CreateInstance(customList), IList)

If itemlist.Count > 0 Then

• The list is not yet created . ( So it's just declared as mylist as Ilist).
• The list is created ( with your code ) but the items are deleted ( or has no items ).

If mylist IsNot Nothing AndAlso mylist.Count > 0 Then
End If