If e.DataCol.Name = "日期1" Then
If e.NewValue = Nothing then
e.DataRow("日期2") = Nothing
Else
e.DataRow("日期2") = e.NewValue.AddYears(-1).AddDays(-1)
End If