If your EntityModel name is MyEntities and in your model, if you have Client class inherits from entityobject having a navigation or foreignkey relationship with lkpClientType class also inherits from entityobject, create a partial class like this.
1: Partial Public Class Client
2:
3: Public Property ClientTypeID() As Nullable(Of Integer)
4: Get
5: If lkpClientTypeReference Is Nothing Then
6: Return Nothing
7: End If
8:
9: If lkpClientTypeReference.EntityKey Is Nothing Then
10: Return Nothing
11: End If
12: Return lkpClientTypeReference.EntityKey.EntityKeyValues(0).Value
13: End Get
14:
15: Set(ByVal value As Nullable(Of Integer))
16: If value.HasValue Then
17: ' To notify others listening that the property is changing
18: OnPropertyChanging("ClientTypeID") 19: lkpClientTypeReference.EntityKey = New EntityKey("MyEntities.lkpClientType", _ 20: New EntityKeyMember() {New EntityKeyMember("ClientTypeID", DirectCast(value.Value, Object))}) 21: OnPropertyChanged("ClientTypeID") 22: End If
23: End Set
24: End Property
25:
26: End Class
Once done creating the partial class and compiling, following query will include your foreignkey as well in your result set of Client:
Dim aClient= (from c in MyEntities.Client where c.ClientID = 1012 select c).First()
System.WriteLine(aClient.ClientTypeID)
Or
Var aClient= (from c in MyEntities.Client where c.ClientID = 1012 select c).First()
Sytem.WriteLine(aClient.ClientTypeID)