Foxtable(狐表)用户栏目专家坐堂 → 插入行,自动复制上一行的相关列代码问题


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

主题:插入行,自动复制上一行的相关列代码问题

帅哥哟,离线,有人找我吗?
feixianzhi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:503 积分:4002 威望:0 精华:0 注册:2016/6/7 7:45:00
插入行,自动复制上一行的相关列代码问题  发帖心情 Post By:2017/2/6 15:55:00 [只看该作者]


各位老师,我想实现,在一个表中插入一行,插入行自动复制插入行上一行的第一列、第三列、第五列的内容,用代码怎么实现?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/6 16:15:00 [只看该作者]

dim t as table = tables("表a")
Dim cr As Row = t.rows(t.Position-1)
Dim nr As Row = t.InsertNew
nr("第一列") = cr("第一列")
nr("第二列") = cr("第二列")

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


加好友 发短信
等级:二尾狐 帖子:503 积分:4002 威望:0 精华:0 注册:2016/6/7 7:45:00
  发帖心情 Post By:2017/2/6 16:32:00 [只看该作者]

有点色老师,我把代码放在了表属性DataRowAdding事件中,代码如下:


Dim t As Table = Tables("返利收缴明细表")

Dim cr As Row = t.rows(t.Position-1)

Dim nr As Row = t.InsertNew

nr("收据fa piao号") = cr("收据fa piao号")

nr("数量") = cr("数量")

 


但一运行,项目就强制退出了,是哪出问题了呢。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/6 16:35:00 [只看该作者]

你去看一下你DataColChanged事件的代码,应该写错了

 

http://www.foxtable.com/webhelp/scr/1522.htm

 


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


加好友 发短信
等级:二尾狐 帖子:503 积分:4002 威望:0 精华:0 注册:2016/6/7 7:45:00
  发帖心情 Post By:2017/2/6 16:47:00 [只看该作者]

有点色老师,我的表DataColChanged事件里没有代码呀。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/6 16:48:00 [只看该作者]

代码单独做一个按钮执行。不能写在事件里面。

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


加好友 发短信
等级:二尾狐 帖子:503 积分:4002 威望:0 精华:0 注册:2016/6/7 7:45:00
  发帖心情 Post By:2017/2/6 21:04:00 [只看该作者]

麻烦有点色老师,能不能编写个代码写到表事件里。

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/2/6 21:10:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=95544

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


加好友 发短信
等级:二尾狐 帖子:503 积分:4002 威望:0 精华:0 注册:2016/6/7 7:45:00
  发帖心情 Post By:2017/2/6 21:51:00 [只看该作者]

谢谢有点蓝老师。

 回到顶部