Office中国论坛/Access中国论坛

标题: 一个问题请教！ [打印本页]

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

作者: cattjiu 时间: 2002-12-11 19:20
例子来源于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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)