table表格的currentChanged事件,要写代码
If e.Table.Current IsNot Nothing andAlso Forms("窗口1").Opened then
Forms("窗口1").Controls("TextBox1").Text = e.table.current("第一列")
Forms("窗口1").Controls("TextBox2").Text = e.table.current("第二列")
End If