设置DataRowAdding事件：
If Forms("窗口名").Opened Then
e.Datarow("单号") = Forms("窗口名").Controls("输入框名称").Value
End If
加好友 
发短信
Post By：2012/8/27 9:59:00 [显示全部帖子]
