以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  增加行问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122746)

--  作者:13775189031
--  发布时间:2018/8/1 13:46: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("编制人") = cr("编制人")
        nr("生产令号") = cr("生产令号")
        nr("项目名称") = cr("项目名称")
        nr.move(cr.index+1)
        e.cancel = True
    End If
End If

这个是在最后一列的单元格内按回车键实现增加行或插入行,
能不能指定某一列,而不是在最后一列?

--  作者:有点甜
--  发布时间:2018/8/1 14:28:00
--  
If e.keycode = keys.enter Then
    If e.Table.cols(e.Table.colsel).name = "第三列"  Then
        Dim cr As Row = e.Table.rows(e.Table.position)
        Dim nr As Row = e.Table.addnew
        nr("预算编号") = cr("预算编号")
        nr("编制人") = cr("编制人")
        nr("生产令号") = cr("生产令号")
        nr("项目名称") = cr("项目名称")
        nr.move(cr.index+1)
        e.cancel = True
    End If
End If

--  作者:13775189031
--  发布时间:2018/8/1 17:00:00
--  
OK!谢谢!