DataRowAdded事件
If Forms("窗口1").Opened Then
e.DataRow("包材合同编号") = Forms("窗口1").Controls("TextBox1").Text
End If