CurrentChanged事件
Dim cr As Row = e.Table.Current
If Forms("窗口1").Opened AndAlso cr IsNot Nothing Then
Forms("窗口1").Controls("TextBox1").Text = cr("第一列")
Forms("窗口1").Controls("TextBox2").Text = cr("第二列")
End If