Dim cbm As RibbonMenu.ComboBox = RibbonTabs("功能区1").Groups("功能组1").Items("组合框1") cbm.Items.Clear()
Dim tb As DataTable = DataTables("订单") Dim items As List(Of String) = tb.GetUniqueValues("", "产品") For Each item As String In items Dim btn As New RibbonMenu.Button(item) btn.Text = item cbm.Items.Add(btn) Next