主题：求助：窗口时间和增加行

附件中，我想达到的效果：1、找开窗口，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (3).table

老师：给看看这个代码那错了！

我想要的结果是：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

在当前行下插入一行并复制当前行的部分内容到新加行！

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("第五列")

甜老师：谢谢！