主题：窗口表问题

 因为在窗口的afterload事件里写了代码，你删除代码便可。

Dim r As Row = Tables("表a").Current
If r IsNot Nothing Then
    e.Form.Controls("Table1").Visible = r.Locked
    e.Form.Controls("Table2").Visible = not r.Locked
End If