一个问题请教！

luckywjl

一个关于表的数据问题：
1.产品表：
产品编号     产品名称     规格    单位
(自动编号)   (文本)      (文本) (文本)
2.订货明细表
订货明细表编号 产品名称   规格    单位    数量   单价  小计
(自动编号)     (文本)     (文本)  (文本)
如何在订货明细表中的“产品名称”下拉框中，选择产品名称后，对应的“规格”“单位”也随之出现。
谢谢！
我等着用。

cattjiu

例子来源于northwind.mdb订单子窗体。
Private Sub ProductID_AfterUpdate()
On Error GoTo Err_ProductID_AfterUpdate

    Dim strFilter As String
   
    ' Evaluate filter before it's passed to DLookup function.
    strFilter = "roductID = " & Me!ProductID
   
    ' Look up product's unit price and assign it to UnitPrice control.
    Me!UnitPrice = DLookup("UnitPrice", "roducts", strFilter)

Exit_ProductID_AfterUpdate:
    Exit Sub

Err_ProductID_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_ProductID_AfterUpdate

End Sub