DropButtonClick后下拉列表内容选择后不显示

danhanqing

原程序是通过循环来实现生成菜单的：
Private Sub 出货开单初始化()
    For j = 1 To 15
        一级字段 = "商品类别"
        一级菜单 = "商品类别" & j
        数据表名称 = "商品类别列表"
        Me.Controls(页面名称 & "_" & 一级菜单).Clear
        Call 通用一级菜单(Me)
    Next j
End Sub


因为项目太多，明显影响运行速度，就想改成点击后再生成菜单：

Private Sub 出货开单_商品类别1_DropButtonClick()
    子项编号 = 1
    一级字段 = "商品类别"
    一级菜单 = "商品类别" & 子项编号
    数据表名称 = "商品类别列表"
    Me.Controls(页面名称 & "_" & 一级菜单).Clear
    Call 通用一级菜单(Me)
End Sub

生成菜单是没问题的，但选择任何一个菜单项时，结果却不显示在combobox中！求教！