Select Case e.DataCol.Name
Case "单价","累计完成数量","成本单价","跟踪单价","完成数量","数量","计划开始","计划完成","统计日期"
e.DataRow("计划工作预算费用") =IIf(e.DataRow("统计日期")>= e.DataRow("计划完成"),e.DataRow("单价")* e.DataRow("数量"),(e.DataRow("计划完成")-e.DataRow("计划开始")).TotalDays*(e.DataRow("统计日期")-e.DataRow("计划开始")).TotalDays*e.DataRow("单价")* e.DataRow("数量"))
End Select