你在 查房名单 窗口的 afterLoad事件 加入如下代码
If Forms("住院部查房").Opened Then e.Form.Controls("Table1").Table.Position = Tables("查房名单").PositionEnd If