效率上不说,你的代码能简化成If e.DataRow("日期") IsNot Nothing Then e.DataRow("月份")= e.DataRow("日期").MonthEnd if
估计不行吧,贺老师上午刚刚说过表达式中不能使用Month啊!