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("第二列")
Forms("窗口1").Controls("TextBox3").Text = e.table.current("第三列")
End If