主题：表焦点的问题

主窗口为Main,在其下设计了多个sql查询的并列窗口，窗口afterload中的代码：

Dim dr As DataRow
dr = DataTables("QtbSet").Find("WinN = '" & e.Form.name & "'")
If dr IsNot Nothing Then
    If dr("ldTreeDef") > "" Then
        QueryTrcol = dr("ldTreeDef") '将默认查询目录树列赋予全局变量
        Functions.Execute("QueryTree",dr("ldTreeDef")) '传递默认加载列生成目录树
    End If
End If
Tables(e.Form.Name & "_Table1").Focus  '将焦点移动到表上

最后一句就是想窗口打开后把焦点定位在第一个表上，但是却没有效果，用msgbox(Currenttable.Name)