Dim d As Date = e.DataRow("日期")
d = new date(d.year, d.month, 1)
e.DataRow("账务日期") = d.AddMonths(1).AddDays(-1)