也可以这么写
Select Case e.DataCol.Name Case "开始日期", "结束时间" If e.DataRow.IsNull("开始日期") = False And e.DataRow.IsNull("结束时间") = False e.DataRow("合计") = DateDiff("d",e.DataRow("开始日期"),e.DataRow("结束时间")) + 1 End IfEnd Select