Dim r1 As Row = Tables("xxx").Current
Dim r2 As Row = Tables("XXX").AddNew()
If r1 IsNot Nothing Then
r2("日期") = r1("日期").AddDays(1)
End If