1、currentChanged事件
Dim r As Row = e.Table.Current
If r is Nothing Then return
Tables("下表").filter = "姓名 = \'" & r("姓名") & "\'"
2、要加入两个panel,然后把两个表放入panel里面,panel控制好其高度或停靠或锚定。最后把table停靠设置成fill即可。