以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]插入行自动复制上一行内容并将焦点定位在新行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135162)
--  作者：hanzhang98
--  发布时间：2019/5/19 17:03:00
--  [求助]插入行自动复制上一行内容并将焦点定位在新行
老师好。下面的代码想实现“插入行并自动复制上一行内容，同时将焦点定位在新插入的行上”。目前在指定的位置插入行已实现，但复制不了上一行内容，焦点也不能定位在新插入的行上，请老师帮助指正。谢谢。

Dim dt As Table = Tables("部门岗位设置")
Dim pr As Row = dt.Rows(dt.Position-1)
Dim newRow As Row = dt.InsertNew
newRow("岗类编码") = pr("岗类编码")
newRow("岗位类别") = pr("岗位类别")
[此贴子已经被作者于2019/5/19 17:04:03编辑过]
--  作者：有点甜
--  发布时间：2019/5/19 17:34:00
--  
Dim dt As Table = Tables("部门岗位设置")
Dim newRow As Row = dt.InsertNew
Dim pr As Row = dt.Rows(dt.Position-1)
newRow("岗类编码") = pr("岗类编码")
newRow("岗位类别") = pr("岗位类别")
--  作者：hanzhang98
--  发布时间：2019/5/19 18:57:00
--  
老师好。如下两句代码不对，不复制上一行的内容，而是填入了“岗类编码”和“岗位类别”这四个字。还请老师指正。谢谢。

Dim pr As Row = dt.Rows(dt.Position-1)
newRow("岗类编码") = pr("岗类编码")
newRow("岗位类别") = pr("岗位类别")
--  作者：有点甜
--  发布时间：2019/5/19 22:56:00
--  

 

代码没问题，第一行的时候，上一行就是列标题

 

 
--  作者：hanzhang98
--  发布时间：2019/5/20 10:20:00
--  
老师好。代码能否实现“在当前行”的前面插入行，或者在“当前行”的后面插入行。谢谢。
--  作者：有点甜
--  发布时间：2019/5/20 10:22:00
--  
Dim dt As Table = Tables("表A")
Dim pr As Row = dt.current
Dim newRow As Row = dt.InsertNew
newRow("第一列") = pr("第一列")
newrow.move(pr.Index)