0
<HttpPost()>
    Function Edit(<Bind(Prefix:="Article")> ByVal Article As FormCollection, Optional ByVal DepartementID As Integer = 0, Optional ByVal LeverancierID As Integer = 0) As ActionResult ', ByVal ReferenceSupplierID As Integer
        ' Dim Art As Article = ArticleService.GetArticleById(Article.ArticleID)
        Dim _toUpdateArt As Article = ArticleService.GetArticleById(Article(0))
        UpdateModel(_toUpdateArt, Article)
        '  TryUpdateModel(Art, Article)
        If LeverancierID > 0 Then
            _toUpdateArt.Supplier = LeverancierService.GetLeverancierById(LeverancierID)
        Else
            _toUpdateArt.Supplier = Nothing 'HERE
            ModelState.Remove("LeverancierID")
        End If
        If DepartementID > 0 Then
            _toUpdateArt.Departement = DepartmentService.GetDepartmentByID(DepartementID)
        Else
            _toUpdateArt.Departement = Nothing 'HERE
            ModelState.Remove("DepartmentID")
        End If
        If ModelState.IsValid Then

            _toUpdateArt.EditedOn = Now
            ArticleService.SaveArticle()

            Return RedirectToAction("Index")
        Else

            ViewBag.Index = ""
            ViewBag.Create = ""
            ' ViewBag.Edit = ""
            'ViewBag.StandardValueEnabled
            ViewBag.Delete = ""
            ViewBag.Editable = ""
            '   ViewBag.LocalSearch = ""
            ViewBag.Departments = DepartmentService.GetDepartments
            ' ViewBag.StandardValueEnabled = ""

            ViewBag.MediaShow = ""
            ViewData("Media") = MediaService.GetMedia.Where(Function(el) el.Reference = Domain.Common.ReferenceTo.Article And el.ReferenceID.Equals(_toUpdateArt.ArticleID)).ToList

            Dim avw As New ViewModels.ArticleViewModel
            With avw
                .Article = _toUpdateArt
                .Leveranciers = LeverancierService.GetLeveranciers.ToList.Select(Function(dl) New SelectListItem With { _
                                                                    .Text = dl.RoepNaam, _
                                                                    .Value = dl.LeverancierID, _
                                                                    .Selected = LeverancierID = dl.LeverancierID}).ToList

                .Departements = DepartmentService.GetDepartments.Select(Function(dl) New SelectListItem With { _
                                                                            .Text = dl.Code, _
                                                                            .Value = dl.DepartmentID, _
                                                                            .Selected = DepartementID = dl.DepartmentID}).ToList

            End With


            Return View(avw)
        End If
    End Function

_toUpdateArt.Departement = Nothing 和_toUpdateArt.Supplier = Nothing 是去掉可选关系。

但它只在我调试它时有效,有时在命令的几个循环之后,在实际删除关系并将其存储在数据库中之前。

当“函数”上没有断点时,关系永远不会为空。

有没有人对此有解释以及如何解决这个问题?

4

1 回答 1

2

如果 Department 已经是 Nothing (null),那么很可能将其设置为 Nothing 将无效。我怀疑您看到它在调试器中工作,因为调试器访问该属性并导致它延迟加载。在此之后,该属性不再是 Nothing,因此将其设置为 Nothing 会被检测为删除关系。

有几种方法可以处理这个问题:

  • 确保将 FK 映射到实体中的属性(即使用 FK 关系),然后将 FK 设置为 null 而不是将导航属性设置为 null。在这种情况下,FK 充当关系的标记,以便可以明确更改它而无需加载相关实体。
  • 始终加载相关实体,以便该属性永远不会为空。您可以使用 Include 或延迟加载来执行此操作。
  • 如果您在 .NET 4.5 上使用 EF5,那么您可以开始使用完整的更改跟踪代理,在这种情况下,即使该属性已经是 Nothing,代理也会检测到该属性设置为 Nothing。但请注意,更改跟踪代理存在复杂性,并且仅在使用 .NET 4.5 时适用于 FK 关系。
于 2012-06-07T15:19:24.077 回答