For Each dr As DataRow In DataTables("设备使用情况统计表").Select("[设备名称] <> 'nothing'")
If e.DataRow("月") = 1 then
dr("起日期") = "12月26日"
else dr("起日期") = e.DataRow("月") -1 & "月26日"
End IfNext