Dim 变量名 As RibbonMenu.ComboBox = RibbonTabs("基础数据").Groups("商品信息").Items("组合框1")
将这个控件的下拉列显示某个数据表的某个表