Foxtable(狐表)用户栏目专家坐堂 → datarowadd执行错误


  共有3666人关注过本帖树形打印复制链接

主题:datarowadd执行错误

美女呀,离线,留言给我吧!
test321
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:968 威望:0 精华:0 注册:2013/11/30 12:30:00
datarowadd执行错误  发帖心情 Post By:2013/12/23 12:56:00 [只看该作者]

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

 

 

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


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20131223125529.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/12/23 13:07:00 [只看该作者]

DataRowAdding事件代碼:

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

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

end if


 回到顶部
美女呀,离线,留言给我吧!
test321
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:968 威望:0 精华:0 注册:2013/11/30 12:30:00
  发帖心情 Post By:2013/12/23 13:14:00 [只看该作者]

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

   adding 中执行错误


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20131223131447.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-12-23 13:15:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/23 14:07:00 [只看该作者]

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

 回到顶部
美女呀,离线,留言给我吧!
test321
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:968 威望:0 精华:0 注册:2013/11/30 12:30:00
  发帖心情 Post By:2013/12/23 14:14:00 [只看该作者]

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/23 14:19:00 [只看该作者]

e.row 换为 e.datarow 即可

图片点击可在新窗口打开查看

 

看帮助一定要按顺序,头一两遍可以不求甚解,第三遍开始要将每个例子实际操作演练一遍,不明白的就上论坛求助。
三遍之后才开始做系统,先设计好表,想做什么功能,就做什么功能,遇到问题在帮助找答案,找不到的在论坛提问,不断遇到问题,不断解决问题,慢慢就熟悉了。
此外一定要先掌握《使用指南》,然后再看《开发指南》


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/12/23 15:24:00 [只看该作者]

晕,手工输入时忘记了!
[此贴子已经被作者于2013-12-23 15:24:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/12/23 15:24:00 [只看该作者]

DataRowAdding事件代碼:

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

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

end if


 回到顶部