主题：关联后排序问题

父表与子表采用窗口表的方式建立关联，在父表的“CurrentChanged”事件下有如下代码，问题：标红的排序代码段放在这后在子表每增加一条记录或者每填写一个单元格他的排序都会乱串，请问老师把此排序代码加到哪里合适？让其在增加记录期间排序不乱串？选另一行父表记录时再执行排序功能

  If e.Table.Name = "订单窗口_Table1" Then
        Dim t As Table = Tables("订单窗口_Table2")
        With e.Table
            If .Current Is Nothing Then
                t.Filter = "False"
            Else
                t.Filter = "Cid = " & .Current("Cid")
                t.Sort="SubDivision,Mandator,OrDate"

            End If
        End With
    End If