编写doubleclick事件
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("TextBox1").Text = e.Table.Value
End If