试试将DataRowAdding事件代码设置成下面这样:
Dim d As Date = e.DataTable.DataRows(e.DataTable.DataRows.Count -1)("日期")e.DataRow("日期") = d.AddDays(1)