在这个窗口的AfterClose事件设置代码:
with Tables("XXX")
Dim idx As integer = .Cols("yyy").Index
.Select(.RowSel,Idx)
End With