以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  插入行，自动复制上一行的相关列代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95826)
--  作者：feixianzhi
--  发布时间：2017/2/6 15:55:00
--  插入行，自动复制上一行的相关列代码问题

各位老师，我想实现，在一个表中插入一行，插入行自动复制插入行上一行的第一列、第三列、第五列的内容，用代码怎么实现？
--  作者：有点色
--  发布时间：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
--  发布时间：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("收据发票号") = cr("收据发票号")

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

 


但一运行，项目就强制退出了，是哪出问题了呢。
--  作者：有点色
--  发布时间：2017/2/6 16:35:00
--  

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

 

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

 
--  作者：feixianzhi
--  发布时间：2017/2/6 16:47:00
--  
有点色老师，我的表DataColChanged事件里没有代码呀。
--  作者：有点色
--  发布时间：2017/2/6 16:48:00
--  
代码单独做一个按钮执行。不能写在事件里面。
--  作者：feixianzhi
--  发布时间：2017/2/6 21:04:00
--  
麻烦有点色老师，能不能编写个代码写到表事件里。
--  作者：有点蓝
--  发布时间：2017/2/6 21:10:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=95544
--  作者：feixianzhi
--  发布时间：2017/2/6 21:51:00
--  
谢谢有点蓝老师。