VB.NET 我的类属性最终出现在循环引用中，因此出现 StackOverflow 异常

Question

我有2节课。 Role 和 User 这样的

Role

Public Class Role
    Public Property RoleID As Integer
    Public Property CreatedBy As User

    Sub New()    
        If Me.CreatedBy Is Nothing Then
            Me.CreatedBy = New User()
        End If
End Class

User

Public Class User
    Public Property UserID As Integer
    Public Property Role As Role

  Public Sub New()
        If Me.Role Is Nothing Then
            Me.Role = New Role()
        End If
    End Sub
End Class

情况就像我们创建角色的时候，我们会保存谁创建了这个角色。所以我有一个 User 类型的 CreatedBy 属性。同样，当我们创建用户时，我们会提到新用户属于什么角色。所以我有一个名为“Role”类型的“Role”属性。当我创建 User 类的对象时，这个循环引用给了我 StackOverflow 异常作为其递归。

我该如何处理这个问题？我应该重组我的实体吗？如何 ？

Answer 1

在每个类中创建构造函数重载以传递宿主对象：

Public Class User
    Public Property UserID As Integer
    Public Property Role As Role

    Public Sub New()
        Me.Role = New Role(Me)
    End Sub
    Public Sub New(oRole As Role)
        Me.Role = Role
    End Sub
End Class

Public Class Role
    Public Property RoleID As Integer
    Public Property CreatedBy As User

    Sub New()
        Me.CreatedBy = New User(Me)
    End Sub
    Public Sub New(oUser As User)
        Me.CreatedBy = oUser
    End Sub
End Class