请教如何设置组合框

cjf78

版主及师长：组合框的设置一直非常困惑我，刘小军有关组合框的精典文章我也拜读过，但一用到我的系统中就总弄不好，请教众师长不吝赐教。我的问题是：见附件和图片：

[
如何使组合框[订单号]和[物料编号]联动，如图示：订单号选择A0001,物料编号就只能显示0005和0006,反之物料编号选择0004,订单号只能显示A0002和A0004可以选择，但我较笨，请教指点，感谢！

yanwei82123300

6D老师好久不见了！特此问候！

Henry D. Sy

1. Private Sub Combo9_AfterUpdate()
   
2.     Dim strSQL As String
   
3.     Dim strWhere As String
   
4.     strWhere = Me.Combo9
   
5.     strSQL = "SELECT 材料入库.订单号, 材料入库.物料编号 FROM 材料入库 where 订单号='" & strWhere & "'"
   
6.     Me.Combo11.RowSource = strSQL
   
7.     Me![材料入库].Requery      '重新运行于子窗体
   
8. End Sub

复制代码

cjf78

感谢roych,q我按您的指引试试

roych

二级下拉菜单一般是隶属关系的，是不能相互返回的，因为这涉及到一个循环引用过程。因此你先要把关系搞清楚，才能做二级下拉菜单。
二级下拉菜单其实很简单，第一级的数据源是个普通查询，第二级是以第一级的数据作为条件的一个选择查询。关键在第一级菜单上加上第二级的数据刷新语句（Me.第二级.Requery)就行了。