DataRowadded事件,代码
e.DataRow("创建者") = User.name & " " & Date.NowIf Forms("窗口1").Opened Then Tables("窗口1_Table2").AddNewEnd If