以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  插入行问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120356)
--  作者：13775189031
--  发布时间：2018/6/13 13:47:00
--  插入行问题
    A    B    C    D
1

2
3
4

想实现在每一行最后一个单元格内按回车键，则自动在此行下插入一行，同时插入行的A、B值与上一行的内容相同。
能不能实现？该怎么编代码？
--  作者：有点甜
--  发布时间：2018/6/13 14:25:00
--  

keydown事件

 

If e.keycode = keys.enter Then
    If e.Table.position = e.Table.rows.count-1 AndAlso e.Table.colsel = e.Table.cols.count-1 Then
        Dim cr As Row = e.Table.rows(e.Table.position)
        Dim nr As Row = e.Table.addnew
        nr("第一列") = cr("第一列")
        e.cancel = True
    End If
End If
--  作者：13775189031
--  发布时间：2018/6/13 15:48:00
--  
这个能实现在最后一行增加行，如果在中间插入呢？
--  作者：有点甜
--  发布时间：2018/6/13 15:57:00
--  

If e.keycode = keys.enter Then
    If e.Table.colsel = e.Table.cols.count-1 Then
        Dim cr As Row = e.Table.rows(e.Table.position)
        Dim nr As Row = e.Table.addnew
        nr("第一列") = cr("第一列")
        nr.move(cr.index+1)
        e.cancel = True
    End If
End If
--  作者：13775189031
--  发布时间：2018/6/13 16:07:00
--  
好了！谢谢！