Private Sub DataGrid1_Click()
Form2.Text1.Text = DataGrid1.Columns(0).Value
Form2.Text2.Text = orDataGrid1.Columns(1).Value
你可以这样，在From1加一个Text控件，假设名为Text7，DataSource同DataGrid1，DataField选姓名
双击Text7控件代码如下：
Private Sub Text7_Change()
from2.text1.text=text7.text
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024