选择产品后并不会像示例中一样会跟随显示相应的单价

hayhay

see see

jishengping

第一次发贴就得到大家的热心帮助 我非常感动 感谢大家 感谢liaug 为我做的修改 感谢hi-wzj  感谢tz-chf   因为产品的单价在打样版的时候就确定好的 就好像一个库存在那里一样随时出货 所以我还是坚持要NORTHWIND里那种效果  并且不知道是怎么实现的  附上NORTWIND的示例数据库

greatpeng

我也遇到相同问题，买了本书也不知道查哪一部分，期待高手给个解决方案

tz-chf

订单子窗体少抄了一段代码

Private Sub 产品ID_AfterUpdate()

On Error GoTo Err_ProductID_AfterUpdate

    Dim strFilter As String
   
    ' 在传给 DLookup 函数之前给筛选字符串赋值。
    strFilter = "[产品ID] = " & Me!产品ID
   
    ' 查找产品的单价并将它赋给“单价”控件。
    Me!单价 = DLookup("[单价]", "产品", strFilter)

Exit_ProductID_AfterUpdate:
    Exit Sub

Err_ProductID_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_ProductID_AfterUpdate

End Sub

tz-chf

10楼的做法一般情况下是错误的.

不需要把产品信息都写到订单明细表里,产品ID组合框里弄那么多东西也不好,总价不应该这样计算.究其根本是子窗体应该来自查询,而不是表.