- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助：窗口时间和增加行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118204)
-- 发布时间：2018/4/26 23:35:00
-- 求助：窗口时间和增加行
附件中，我想达到的效果：1、找开窗口，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2018/4/27 9:03:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1 (3).table |
-- 发布时间：2018/4/27 14:33:00
--
老师：给看看这个代码那错了！
我想要的结果是：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
在当前行下插入一行并复制当前行的部分内容到新加行！
-- 发布时间：2018/4/27 14:44:00
--
Dim t As Table = Tables("窗口1_Table1")
Dim cr = t.Current
Dim nr As Row = t.AddNew
If t.Current Is Nothing OrElse t.Current.Index = t.Rows.count-1 Then
nr.move(cr.Index+1)
End If
nr("第一列") = cr("第一列") + 1
nr("第二列") = Date.Today
nr("第四列") = cr("第四列")
nr("第五列") = cr("第五列")
-- 发布时间：2018/4/27 16:35:00
--
甜老师：谢谢！