主题：筛选后，新增关联的子表行不显示

窗口1中，上表是父表（Table1），下表是子表（Table2）。在父表（Table1）筛选后，新增子表行是，发现子表中没有显示新增的行。

新增按钮代码：

If Tables("窗口1_Table1").Current.IsNull("注册备案_证号") = False Then
    Dim dr As Row = Tables("窗口1_Table1").Current
    Dim d2 As Row = Tables("窗口1_Table2").AddNew
    If dr IsNot Nothing Then
        d2("标识码") = dr("标识码")
        d2("注册证号") = dr("注册备案_证号")
        d2("注册证效期_开始时间") = dr("注册备案_效期始")
        d2("注册证效期_结束时间") = dr("注册备案_效期")
        d2("生产企业") = dr("生产企业")
        d2("注册证有无") = dr("注册备案_有无")
        d2("配送公司") = dr("配送公司")
        d2("类别") = dr("类别")
        d2("版本") = dr("版本")
    End If
Else
    MessageBox.Show("信息录入不齐全,请重新录入!", "提示")
End If

父表（Table1）的CurrentChanged代码：

If e.Table.Current Is Nothing Then '如果Current为Nothing
    e.form.controls("Table2").Table.Filter ="1=2"
Else
    e.form.controls("Table2").Table.Filter ="标识码='" & Tables("窗口1_Table1").Current("标识码") & "'"
End If

请问老师问题出在哪里？谢谢！