你把 AfterSelectNode
Tables("表A").Filter = "键 In (" & ids & ")"
改成 Tables("表A").Filter = "父键 In (" & ids & ")"