Office中国论坛/Access中国论坛

标题: 选择产品后并不会像示例中一样会跟随显示相应的单价 [打印本页]

作者: jishengping 时间: 2008-8-1 15:21
标题: 选择产品后并不会像示例中一样会跟随显示相应的单价
小弟初学想做个和示例NORTHWIND一样的系统但是在做订单窗体时选择产品后并不会像示例中一样会跟随显示相应的单价。不知道示例中是如何实现的望大侠指教谢谢本人QQ15514608

作者: jishengping 时间: 2008-8-1 15:27
在线等

作者: hi-wzj 时间: 2008-8-1 16:24
放上你出错的例子吧

作者: jishengping 时间: 2008-8-1 16:48
版主能加我QQ远程协助吗

作者: jishengping 时间: 2008-8-1 16:51
我的例子

作者: jishengping 时间: 2008-8-1 16:54
打开订单窗体添加产品不会出现相对应的单价输入数量也不会计算总价版主如果能帮我解答这些问题我将把您当成我的恩人啊

作者: jishengping 时间: 2008-8-1 17:14
看了一下基础知识的书但是不知道这个功能是哪方面的知识不知是没学到还是没学懂请大家指教啊

作者: tz-chf 时间: 2008-8-1 17:29
看一下窗体的记录源，是一个查询。

作者: gaofei186 时间: 2008-8-1 19:29
看一看呀

作者: liaug 时间: 2008-8-1 19:40
[attach]31343[/attach][attach]31344[/attach]
看一下是不是你想要的,你的表帮你改了一下,单价这个东东是不一定的,建议你用直接输入的方式,而不是你说的那种跟随显示

[ 本帖最后由 liaug 于 2008-8-1 20:16 编辑 ]

作者: hayhay 时间: 2008-8-2 08:04
see see

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

作者: greatpeng 时间: 2008-8-14 19:12
我也遇到相同问题，买了本书也不知道查哪一部分，期待高手给个解决方案

作者: tz-chf 时间: 2008-8-14 20:30
订单子窗体少抄了一段代码

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 时间: 2008-8-14 20:44
10楼的做法一般情况下是错误的.

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

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