你需要编写datarowAdded事件
If Forms("窗口1").Opened Then
e.DataRow("第一列") = Forms("窗口1").Controls("TextBox1").Text
End If