- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86483)
-- 发布时间：2016/6/18 14:18:00
-- [求助]
此主题相关图片如下：qq图片20160618134756.png
我当前行的下方插入行并复制当前行的内容 代码怎么写
-- 发布时间：2016/6/18 15:02:00
--
Dim idx As Integer = Tables("表A").Position
Dim dr As Row
If idx = -1 Then Return ""
Dim cur As Row = Tables("表A").Current
If idx = Tables("表A").Rows.Count - 1 Then
dr = Tables("表A").AddNew()
Else
Tables("表A").Position = idx + 1
dr = Tables("表A").InsertNew()
End If
dr("第一列") = cur("第一列")