Visual Basic

MyBindingSource.Current.GetType

MyBindingSource.GetItemProperties(Nothing)(0).ComponentType

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 fk = entity.MetadataWorkspace.GetItems(Of Metadata.Edm.AssociationType)(Metadata.Edm.DataSpace.CSpace).Where(Function(a) a.IsForeignKey)
      Dim fkname = fk.Where(Function(x) x.ReferentialConstraints(0).ToRole.Name = parenttable)
      Dim refcol = fkname.Select(Function(x) x.ReferentialConstraints(0).FromProperties(0).Name).First()
      return refcol
  End Function

Dim _dt As DataTable = New DataTable
   For i = 0 To _dt.Rows.Count() - 1
         _htmlTable.Append("Total # parts: " + _dt.Rows(i)(_dt.Columns(5).ColumnName()).ToString() + "   ")
         _htmlTable.Append("<BR />")
   Next

// Create a List<> of unknown type at compile time.
Type customList = typeof(List<>).MakeGenericType(tempType);
IList objectList = (IList)Activator.CreateInstance(customList);

// Copy items from a PropertyInfo list to the object just created
object o = objectThatContainsListToCopyFrom;
PropertyInfo p = o.GetType().GetProperty("PropertyName");
IEnumerable copyFrom = p.GetValue(o, null);
foreach(object item in copyFrom) objectList.Add(item); // Will throw exceptions if the types don't match.

// Iterate and access the items of "objectList"
// (objectList declared above as non-generic IEnumerable)
foreach(object item in objectList) { Debug.WriteLine(item.ToString()); }

List1.Items.Add(object).