设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 505|回复: 1
打印 上一主题 下一主题

一个问题请教!

[复制链接]
跳转到指定楼层
1#
发表于 2002-12-11 19:18:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
一个关于表的数据问题:
1.产品表:
产品编号     产品名称     规格    单位
(自动编号)   (文本)      (文本) (文本)
2.订货明细表
订货明细表编号 产品名称   规格    单位    数量   单价  小计
(自动编号)     (文本)     (文本)  (文本)
如何在订货明细表中的“产品名称”下拉框中,选择产品名称后,对应的“规格”“单位”也随之出现。
谢谢!
我等着用。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2002-12-11 19:20:00 | 只看该作者
例子来源于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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 02:31 , Processed in 0.086888 second(s), 25 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表