实体框架6.0-删除时的奇怪行为

我决定第一次使用Entity Framework 6.0。所以，是的，我是新手。和往常一样，我首先创建了数据库，然后（通过Visual Studio向导）生成代码优先模型，如下所示：

Partial Public Class DataContext
Inherits DbContext
Public Sub New()
    MyBase.New("name=DataContext")
End Sub
Shared Sub New()
    DbInterception.Add(New FullTextInterceptor())
End Sub
Public Overridable Property StatusInfoes As DbSet(Of StatusInfo)
Public Overridable Property UpdateSets As DbSet(Of UpdateSet)
Public Overridable Property Users As DbSet(Of User)
Protected Overrides Sub OnModelCreating(ByVal modelBuilder As DbModelBuilder)
    modelBuilder.Configurations.Add(New UpdateSetFtsMap)
    modelBuilder.Entity(Of StatusInfo)() _
        .Property(Function(e) e.Information) _
        .IsUnicode(False)
    modelBuilder.Entity(Of UpdateSet)() _
        .Property(Function(e) e.Title) _
        .IsUnicode(False)
    modelBuilder.Entity(Of UpdateSet)() _
        .Property(Function(e) e.Files) _
        .IsUnicode(False)
    modelBuilder.Entity(Of UpdateSet)() _
        .HasMany(Function(e) e.StatusInfoes) _
        .WithRequired(Function(e) e.UpdateSet) _
        .WillCascadeOnDelete(False)
    modelBuilder.Entity(Of User)() _
        .Property(Function(e) e.Login) _
        .IsUnicode(False)
    modelBuilder.Entity(Of User)() _
        .Property(Function(e) e.Password) _
        .IsUnicode(False)
    modelBuilder.Entity(Of User)() _
        .Property(Function(e) e.Surname) _
        .IsUnicode(False)
    modelBuilder.Entity(Of User)() _
        .Property(Function(e) e.Name) _
        .IsUnicode(False)
    modelBuilder.Entity(Of User)() _
        .HasMany(Function(e) e.StatusInfoes) _
        .WithRequired(Function(e) e.User) _
        .WillCascadeOnDelete(False)
End Sub
Public Function GetServerDate() As DateTime
    Return Database.SqlQuery(Of DateTime)("Select GetDate()").SingleOrDefault
End Function
End Class

因此，我有一个UpdateSet对象，该对象至少有一个StatusInfo。到目前为止还不错。

奇怪的是删除。这是我的代码：

Public Function DeleteById(id As Integer) As Integer Implements IDataMapper(Of UpdateSetDataTransferObject).DeleteById
    Dim result = -1
    Using ctx As New DataContext
        Dim dbUpdateSet = (From o In ctx.UpdateSets Where o.Id = id Select o).SingleOrDefault
        If dbUpdateSet IsNot Nothing Then
            ctx.UpdateSets.Remove(dbUpdateSet)
            Try
                ctx.SaveChanges()
                result = 0
            Catch ex As DbUpdateException
            End Try
        End If
    End Using
    Return result
End Function

奇怪的是，有时它是有效的。（比如说，20个中有1个）。通过调试，我观察到在大多数情况下代码

ctx.UpdateSets.Remove(dbUpdateSet)

从StatusInfo集合中删除所有StatusInfo对象（子对象），因此我认为EF没有关于要删除的子对象的信息。所以我得到了错误：

DELETE语句与REFERENCE约束"FK_UpdateSetStatus_UpdateSet"冲突。冲突发生在数据库"UpdateWizard"、表"dbo.StatusInfo"、列"UpdateSetId"中。语句已终止。

正如我前面提到的，有时它是有效的。那些时候，remove命令没有清除StatusInfo对象的集合。

有人能帮忙吗？