主题：老大 有个计算你帮我看看

还是用了帮助的方法 搞定了.

Dim h As Row=Tables("采购订单").Current
Dim ks As New List(Of String)
For Each r As Row In Tables("组合明细").Rows
    If r("花束编号")=h("花束编号") Then
        ks.Add(r("物品编码"))
    End If
Next
Dim ue As String
Dim sum As  Double=0
For Each ue In ks
    sum=sum+Tables("订单明细").Compute("Sum(数量)", "物品编码 = '" & ue & "'")
Next
Output.Show(Sum)

发出来才看到你已经搞定了，哈哈，我这个只是个笨方法。

老兄  我昨日没有做出来  是有少了一句判断代码.  

CREATE TABLE 订单(物品编号 NVARCHAR(20),数量 INT)
CREATE TABLE 物品明细表(物品编号 NVARCHAR(20),商品编号 NVARCHAR(20))

INSERT INTO 订单 VALUES ('W0001',100)
INSERT INTO 订单 VALUES ('W0001',200)
INSERT INTO 订单 VALUES ('W0002',200)
INSERT INTO 订单 VALUES ('W0002',300)

INSERT INTO 物品明细表 VALUES ('W0001','B1')
INSERT INTO 物品明细表 VALUES ('W0001','B2')
INSERT INTO 物品明细表 VALUES ('W0001','B3')
INSERT INTO 物品明细表 VALUES ('W0002','B1')
INSERT INTO 物品明细表 VALUES ('W0002','B2')
INSERT INTO 物品明细表 VALUES ('W0002','B4')
INSERT INTO 物品明细表 VALUES ('W0002','B5')

--------------------------------------------------------
SELECT 商品编号,SUM(订单合计) AS 订购数量
FROM (SELECT 商品编号,订单合计
  FROM 物品明细表
  INNER JOIN (SELECT 物品编号,SUM(数量) AS 订单合计
     FROM 订单
     GROUP BY 物品编号) A
  ON 物品明细表.物品编号 = A.物品编号) B
GROUP BY 商品编号
--------------------------------------------------------

DROP TABLE 订单
DROP TABLE 物品明细表

保留着.学习中.