Select Case e.DataCol.name Case "债务项目编码","批次","年度","月份" e.DataRow("实际偿还金额") = DataTables("偿还明细表").Compute("Sum(偿还金额)","[债务项目编码] = '" & e.DataRow("债务项目编码") & "' And [批次] = '" & e.DataRow("批次") & "' and 年度 = '" & e.DataRow("年度") & "' and 月份 = '" & e.DataRow("月份") & "'" ) End Select
|