嗨，大家中午好！

最近，有網友給我私信，想要一個聯動的示例，一個有關于部門聯動的操作。

其實關于聯動的操作有很多，可以是組合框的聯動，列表框聯動，組合框與列表框也可以聯動，哪怕是放到子窗體中也是可以聯動的，那我們今天就來講一下一張表實現組合框的聯動。

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運行測試

最后就是來運行測試一下，如下圖，我們用一張表就實現了聯動，是不是非常的簡單呢！

組合框聯動的示例我就先講到這里，后面我會給大家更新列表框的聯動。