Office中国论坛/Access中国论坛

标题: 这个传导代码应当如何设置？ [打印本页]

作者: zuiweng 时间: 2008-7-21 20:29
标题: 这个传导代码应当如何设置？
说明；1,“款式名称”里面设置了“外加工费”和“外加工费2”两个单价资料。
2.“外协类别”里面设置了“内胆加工”和“锁眼”两个类别
3.当在选择“外协类别”里的“锁眼”类别的时候，自动将“外加工费”的单价传导到“外协单价”中
4 。当选择“外协类别”里的“内胆加工”时，自动将“外加工费2”里的单价传导到“外协单价”中
5.现在只能传导“外加工费”（锁眼），另一个“外加工费2”的编码应当怎样编写，才能实现在选择不同的类别时，它能够自动的选择相应的单价？

以下是现在的代码：

Option Compare Database
Private Sub 外协类别_AfterUpdate()
On Error GoTo Err_ProductID_AfterUpdate
Dim strFilter As String

strFilter = "[款式名称ID] = " & Me!外协类别

Me!外协单价 = DLookup("[外加工费]", "款式名称", 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/)