-- 作者:有点色
-- 发布时间:2017/3/10 17:34:00
--
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
|