If e.DataCol.Name = "结算年" OrElse e.DataCol.Name = "结算月" Then If e.DataRow.Isnull("结算年") OrElse e.DataRow.Isnull("结算月") Then e.DataRow("总重量") = Nothing Else Dim d As Date = new Date(e.DataRow("结算年"), e.DataRow("结算月"), 1) e.DataRow("总重量") = DataTables("表C").Compute("sum(材料重量)", "配料日期 >= #" & d & "# and 配料日期 < #" & d.AddMonths(1) & "#") End If End If