组合框/列表框
级联组合框的设计教程
2015-01-29 11:35:55
 

本教程最终实现的效果下图

 

 

设计步骤如下:

1.新建表,输入相关字段,保存为“省市表”如下图所示

   

 

2.在“省市表”里输入一些数据,如下图

 

 

3.新建一个窗体,在上面添加一个组合框,弹出的“组合框向导”点“取消”。单击该组合框(combo0)的属性卡里的“行来源”的“...”,如下图

 

 

 

4.sql语句中,作如下设置,如图,注意,要点出“总计:分组”,方法是在表格里单击右键出现“总计”一行即是,如图。(这样做是使组合框的数据能不重复,即显示“江苏、浙江”而非“江苏 江苏 江苏 浙江 浙江 浙江”)

 

        

 

5.在窗体中再添加一个组合框,在“行来源”中做如下设置,如下图:

取消“省份”显示的√,条件里输入语句“[forms]![窗体1]![combo0]

 

 

6.下面添加一些代码,点击

  输入代码:

Private Sub combo0_AfterUpdate()

Me.Combo2 = ""

Me.Combo2.Requery

End Sub

 

最后运行即可。

 

 

 

扩展

联级组合框多用在添加资料时的简化操作,下面做一下介绍

1.       接上文,在程序里添加新表格“人员表”,做如下图设计:

 

 

2.       添加窗体2,数据来源选择“人员表”,将“姓名、省别、市别”添加到窗体2,如下图

 

3.  在“省别”上右键,“变更为”“组合框”

 

4.      参照前文的步骤34,设置“省别”的行来源

 

5.      将“市别变更为组合框,参照前文的步骤5进行设置,如下图

 

 

6.   输入代码如下:

  Private Sub 省别_AfterUpdate()

Me.市别 = ""

Me.市别.Requery

End Sub

运行窗体即可,以下是数据表视图的状态