If e.DataCol.Name = "搜索引擎" Then
e.DataRow("后台_展现") = DataTables("百度搜索引擎").Compute("Sum(展现)", "[日期] = #" & e.DataRow("某日期列") & "#")
e.DataRow("后台_点击") = DataTables("百度搜索引擎").Compute("Sum(点击)", "[日期] = #" & e.DataRow("某日期列") & "#")
End If
或
If e.DataCol.Name = "搜索引擎" Then e.DataRow("后台_展现") = DataTables("百度搜索引擎").Compute("Sum(展现)", "[搜索引擎] = '" & e.NewValue & "'") e.DataRow("后台_点击") = DataTables("百度搜索引擎").Compute("Sum(点击)", "[搜索引擎] = '" & e.NewValue & "'") End If |