求教：如何根据条件更新

youchytan

有表A（ID，加工商，加工项目，计价单位，单价），表B（ID，订单号，日期，加工项目，单位，数量，单价）。如何根据窗体上选定的加工商，用表A的数据更新表B指定订单号的数据？

todaynew

B表缺加工商ID，两表间需要以此字段建立关系。

todaynew

B表缺加工商ID，两表间需要以此字段建立关系。

youchytan

举例吧：
加工商     A产品         B产品        C产品
AAA           1.5                 3                     10
BBB            1.2                2.5                  8
CCCC        1                     2                    7
我现在要找AAA加工A、C产品，开单时要根据报价自动得出B表相应数据。谢谢

youchytan

又没人了？

styhs

示例中表A的格式不符合资料表的需求，请更改。


以下代码用于Access环境，未测试

Dim FName AS String '定义加工商变量
Dim FOrder AS String '定义订单号变量

Set FName = Me.加工商: Set FOrder = Me.订单号

CurrentDb.Execute "UPDATE 表B INNER JOIN " _
        & "(SELECT 加工项目, 单价 FROM 表A WHERE 加工商 = '" & FName & "') AS A " _
        & "ON 表B.加工项目 = A.加工项目 SET 表B.单价 = A.单价 " _
        & "WHERE 表B.订单号 = '" & FOrder & "'"

youchytan

先谢。我试试。

youchytan

没办法，我又用编程解决的。SQL要认真学习了。