Попытка изменить значение поля в соответствии со значением второго поля на основе условия в третьем поле

Question

В дизайне приложения у меня есть одно поле (ROOTS_BOTTOM), которое может принимать значение да или нет (Y / N) из домена.Если этот домен помечен как да, я хочу установить второе поле (ROOT_DIST_MAX) равным тому, которое в третьем поле (C_BOUNDARY_LOW)

Не уверен, как отформатировать код внутри с помощью Set для достижения этого.Ссылка на ROOT_DIST_MAX.Value, как видно здесь, просто не работает, так как «выражение является значением и, следовательно, не может быть целью назначения»

Public Property ROOTS_BOTTOM As CodedValue
    Get
        Dim temp As CodedValue = MyBase.GetCodeDomainValue(Constants.COL_TILL_ROOTS_BOTTOM)
        If temp IsNot Nothing Then
            Return MyBase.AddRemoveErrorMsg(MyBase.GetCodeDomainValue(Constants.COL_TILL_ROOTS_BOTTOM), My.Resources.SystemMessages.TillRootsBottomRequired)
        Else
            Return MyBase.AddRemoveErrorMsg(MyBase.GetCodeDomainValue(Constants.COL_TILL_ROOTS_BOTTOM), My.Resources.SystemMessages.TillRootsBottomRequired)
        End If
        Return MyBase.AddRemoveErrorMsg(MyBase.GetCodeDomainValue(Constants.COL_TILL_ROOTS_BOTTOM), My.Resources.SystemMessages.TillRootsBottomRequired)
    End Get

    Set(value As CodedValue)
        If ROOTS_BOTTOM Is Nothing Then
            MyBase.SetAttributeValue(Constants.COL_TILL_ROOTS_BOTTOM, MyBase.AddRemoveErrorMsg(value, My.Resources.SystemMessages.TillRootsBottomRequired))
        End If
        If ROOTS_BOTTOM.Code.ToString = "Y" Then
            ROOT_DIST_MAX.Value = C_BOUNDARY_LOW.Value
            MyBase.SetAttributeValue(Constants.COL_TILL_ROOTS_BOTTOM, MyBase.AddRemoveErrorMsg(value, My.Resources.SystemMessages.TillRootsBottomRequired))
        Else
            MyBase.SetAttributeValue(Constants.COL_TILL_ROOTS_BOTTOM, MyBase.AddRemoveErrorMsg(value, My.Resources.SystemMessages.TillRootsBottomRequired))
        End If
    End Set
End Property

Public Property ROOT_DIST_MAX As Short?
    Get
        Return MyBase.GetShortValue(Constants.COL_TILL_ROOT_DIST_MAX)
    End Get
    Set(value As Short?)
        MyBase.SetAttributeValue(Constants.COL_TILL_ROOT_DIST_MAX, value)
    End Set
End Property

Public Property C_BOUNDARY_LOW As Short?
    Get
        Return MyBase.AddRemoveErrorMsg(MyBase.GetShortValue(Constants.COL_TILL_C_BOUNDARY_LOW), My.Resources.SystemMessages.TillCBoundaryLowRequired)
    End Get
    Set(value As Short?)
        MyBase.SetAttributeValue(Constants.COL_TILL_C_BOUNDARY_LOW, MyBase.AddRemoveErrorMsg(value, My.Resources.SystemMessages.TillCBoundaryLowRequired))
    End Set
End Property