一张表实现组合框联动

最近，有网友给我私信，想要一个联动的示例，一个有关于部门联动的操作。

其实关于联动的操作有很多，可以是组合框的联动，列表框联动，组合框与列表框也可以联动，哪怕是放到子窗体中也是可以联动的，那我们今天就来讲一下一张表实现组合框的联动。

01、创建表

第一步上来，我们需要先创建表，如下图：

 

创建后，我们来添加一下数据：

02、创建窗体

接下去，我们就需要来创建对应的窗体了，如下图，在窗体上放上三个组合框控件。

03、添加代码

第一步，我们先给第一个组合框添加行来源：

SELECT DISTINCT 部门联动.工厂 FROM 部门联动; 

接下去在工厂和部门两个组合框的更新后事件添加对应的代码

Private Sub 部门_AfterUpdate()
    Me.职位.RowSource = "select distinct 职位 from 部门联动 where 工厂='" & Me.工厂 & "' and 部门='" & Me.部门 & "'"
    Me.职位.SetFocus
    Me.职位.Dropdown
End Sub

Private Sub 工厂_AfterUpdate()
    Me.部门.RowSource = "select distinct 部门 from 部门联动 where 工厂='" & Me.工厂 & "'"
    Me.部门.SetFocus
    Me.部门.Dropdown
End Sub

04、运行测试

最后就是来运行测试一下，如下图，我们用一张表就实现了联动，是不是非常的简单呢！

 

组合框联动的示例我就先讲到这里，后面我会给大家更新列表框的联动。