If e.DataCol.Name = "客户代码" Then Dim Sum As Double Sum = DataTables("装柜明细").Compute("Sum(件数)","[客户代码] = '" & e.DataRow("客户代码") & "'" and "[地址] = '" & e.DataRow("地址") & "'") e.DataRow("件数") = Sum End If
2楼
shxiaoya 发表于:2010/7/22 7:16:00
If e.DataCol.Name = "客户代码" Then Dim Sum As Double Sum = DataTables("装柜明细").Compute("Sum(件数)","[客户代码] = '" & e.DataRow("客户代码") & "' and [地址] = '" & e.DataRow("地址") & "'") e.DataRow("件数") = Sum End If