以文本方式查看主题 - 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!谢谢! |