案例请教-设计一个窗体并根据两个组合框的下拉列表值进行联动

LarryVan

在Access2010中，要设计一个窗体并根据两个组合框的下拉列表值进行联动，选择之后其他控件的内容自动更新。 用Dlookup实现的时候遇到了困难，其中有一个选择条件对应的是表中的一列的不同行，所以可以写入criteria; 但是 另外一个选择条件的几个值 对应的是表中的不同列，所以我写了如下代码都未能实现，请各位帮忙看看怎么改比较合适。  非常感谢！

=DLookUp("[[Forms]![CVL Rebate Program]![Combo15]]","CVL Program Query","[Code] =" & [Forms]![CVL Rebate Program]![Combo62])

或者

=DLookUp("[IIF(ISNULL([Forms]![CVL Rebate Program]![Combo15]), ,[Forms]![CVL Rebate Program]![Combo15]]","CVL Program Query","[Code] =" & [Forms]![CVL Rebate Program]![Combo62])

或者：
=IIf('Forms![CVL Rebate Program]![Combo15]'='1Q',DLookUp("[1Q]","CVL Program Query","[Code]
=" & [Forms]![CVL Rebate Program]![Combo62]),2)

其实主要目的就是找到[Forms]![CVL Rebate Program]![Combo15] 这个窗体标签里面的值，作为Dlookup的Expresion来查找到对应的表中该列的值。

roych

论坛里有很多这样的例子，请自行搜索。把Dlookup写到组合框的更改（change）或者更新后（AfterUpdate）事件里，大体如下：
Private Sub Combo15_Change()
Me.Text0=Dlookup("[1Q]","[CVL Program Query]","Code='" & Me.Combo15 &"'")
End Sub
请留意中括号和Me的使用，特别注意单引号的使用（如果Code是数值格式，请删除等号后面单引号和最后的【&"'"】。

LarryVan

roych 发表于 2012-8-9 20:08
论坛里有很多这样的例子，请自行搜索。把Dlookup写到组合框的更改（change）或者更新后（AfterUpdate）事件 ...

谢谢版主，好像和我想的不是太一样

YXH_YXH

帮顶！！！！！！！！！！