一张表实现组合框联动

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

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

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、运行测试

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

 

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

 

posted @ 2022-10-16 19:56  edonsoft  阅读(81)  评论(0)    收藏  举报  来源