主题：新增一行时日期列如何自动加1天

新增一行时日期列如何自动加1天。如图在光标选定行

可不可以增加一个条件。在当前表有日期列的时候才自动增加一天呢？ 我的代码如下

Dim r1 As Row =CurrentTable.Current
Dim r2 As Row =CurrentTable.AddNew()
If r1 IsNot Nothing Then

    r2("日期") = r1("日期").AddDays(1)

End If