VBA基础
Sum()和Dsum()的区别
2009-04-20 14:00:02
Sum 函数示例此示例使用订单表计算对于送货至英国订单的合计销售额。 此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。Sub SumX() Dim dbs As Database, rst As Recordset ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") ' 对运费超过 $100 的订单， '对于送货到英国的订单计算总销售额。 ' Set rst = dbs.OpenRecordset("SELECT" _ & " Sum(UnitPrice*Quantity)" _ & " AS [Total UK Sales] FROM Orders" _ & " INNER JOIN [Order Details] ON" _ & " Orders.OrderID = [Order Details].OrderID" _ & " WHERE (ShipCountry = '英国');") ' populateRecordset。 rst.MoveLast ' 调用 EnumFields 来打印记录集的内容。 '传递记录集对象和要求的字符宽度。 ' EnumFields rst, 15 dbs.CloseEnd Sub