Я пытаюсь расширить частичные классы, которые создает структура сущностей, чтобы мне было легче работать с объектами, как в приведенном ниже коде (пожалуйста, дайте мне знать, есть ли лучший или более исключительный способ сделать это с помощью структуры сущностей)
Public Sub New(ByVal ProjectID As Integer)
Dim proj As Project = (From p In db.Project.Include("Status") Where p.ProjectID = ProjectID).First
_ProjectID = proj.ProjectID
_ProjectName = proj.ProjectName
Me.Status.StatusID = proj.Status.StatusID 'I get errors here
Me.Status.StatusName = proj.Status.StatusName 'and here
End Sub
Но, конечно, я получаю «Ссылка на объект не указывает на экземпляр объекта» в строке: Me.Status.StatusID = proj.Status.StatusID
Как передать значения связанных сущностей при расширении частичных классов? Или я просто далеко от базы, и есть гораздо более простой способ сделать то, что я пытаюсь сделать здесь?