DataRowAdding事件代碼:
if Forms("新增客户资料").opend = true
Dim bh As WinForm.TextBox = Forms("新增客户资料").Controls("TextBox1") e.row("客户编号")= bh.text
end if