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

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