以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  增加行问题  (http://foxtable.net/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!谢谢！