我的VBA代码工作时，成功地加载组合框与不同的列表的基础上选定的情况。但是，当我从下拉列表中选择一个选项时，该选项不会加载到组合框中。组合框变为空白。
下面是我的VBA代码：

Private Sub cbxTrainingSubject_DropButtonClick()

    cbxTrainingSubject.Clear

    Set shTables = ThisWorkbook.Sheets("Tables")
    Set shForm = ThisWorkbook.Sheets("Form")
    Dim rng As Range

    Select Case cbxTrainingArea.Value
        Case "Assembly"
            Set rng = shTables.ListObjects("assemblyTraining").ListColumns("Assembly Training").DataBodyRange
            shForm.cbxTrainingSubject.List = Application.Transpose(rng.Value)
        Case "Fabrication"
            Set rng = shTables.ListObjects("FabTraining").ListColumns("Fab Training").DataBodyRange
            shForm.cbxTrainingSubject.List = Application.Transpose(rng.Value)
    End Select

End Sub

下面是目标组合框的属性窗口：

当我进行选择时，组合框保持空白。