主题：[求助] 关联公式与多行录入冲突问题

Dim t As Table = Tables("机房板件端口表")

Dim r As Row = e.Table.Current

If r Is Nothing Then  Return

With Tables("机房设备板件表")

    If .Current IsNot Nothing Then

        If r.IsNull("设备编号") Then          

            t.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备型号 = '" & .Current("设备型号") & "'   And 设备编号 Is Null  And 板件槽位 = '" & .Current("板件槽位") & "'  And 板件型号 = '" & .Current("板件型号") & "'"

        Else

           t.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备型号 = '" & .Current("设备型号") & "'  And 设备编号 = '" & .Current("设备编号") & "'  And 板件槽位 = '" & .Current("板件槽位") & "' And 板件型号 = '" & .Current("板件型号") & "'"

        End If

    Else

        t.Filter = "False"

    End If

    

End With

如果像下图右边的关联表“机房板件端口表”当前为空的话；在同时新增多行的时候项目会自动关闭；

此主题相关图片如下：360截图20140929200610662.jpg

如果像下图右边的关联表“机房板件端口表”已经存在有内容的话；在同时新增多行的时候就可以正常增加多行；

此主题相关图片如下：360截图20140929200646319.jpg

如果将"机房设备板件表" 中的PositionChanged命令删除掉、也可以正常增加多行。帮我看一下是不是 PositionChanged的命令 有问题？