可以在全局表事件AfterSelChange中设置代码
If Forms("窗口1").Opened Forms("窗口1").Controls("TextBox1").value = e.Table.Current(e.Table.ColSel)End If