主题：[求助]菜单组合框如果链接选项或增加选项

Dim zhk = RibbonTabs("功能区1").Groups("功能组1").Items("组合框1")
For Each s As String In DataTables("表a").GetValues("第一列")
    Dim b As New RibbonMenu.Button(s)
    b.Text = s '按钮的标题也等于列名称
    zhk.Items.Add(b)
Next