主题：[求助]父子表同步加载问题

 去掉Afterload的代码，currentchanged代码如下

If e.Table.Current IsNot Nothing Then
    Dim filter As String = "身份证号 = '" & e.Table.Current("身份证号") & "' and 报销起日 = #" & e.Table.Current("报销起日") & "# "
      
    DataTables("病情记录单").LoadFilter = filter
    DataTables("病情记录单").Load
End If