主题：datarowadd执行错误

Dim bh As WinForm.TextBox = Forms("新增客户资料").Controls("TextBox1")
Tables("客户联系人").Current("客户编号")= bh.Value

 

 

为什么新增一行的时候客户编号为空   再增加一行的时候上一行才会出现编号??

此主题相关图片如下：qq图片20131223125529.jpg

DataRowAdding事件代碼：

if Forms("新增客户资料").opend = true

    Dim bh As WinForm.TextBox = Forms("新增客户资料").Controls("TextBox1")
    e.row("客户编号")= bh.text

end if

 为什么datarowadd中 代码会出现这种情况呢？

   adding 中执行错误

此主题相关图片如下：qq图片20131223131447.jpg

这个事件只有 e.datarow  事件提示里面就有说,注意看.

那我这句代码该怎么写呢/

 

e.row 换为 e.datarow 即可

晕，手工输入时忘记了！

DataRowAdding事件代碼：

if Forms("新增客户资料").opend = true

    Dim bh As WinForm.TextBox = Forms("新增客户资料").Controls("TextBox1")
    e.datarow("客户编号")= bh.text

end if