Dim CMB1 As RibbonMenu.ComboBox cmb1= RibbonTabs("功能区1")("功能组1")("组合框1")
Dim Values() As String =DataTables("名称表").GetComboListString("名称","名称 like '%" &CMB1.text &" %'").split("|") With RibbonTabs("功能区1")("功能组1")("组合框1") .Items.Clear For i As Integer = 0 To Values.Length - 1 Dim b As New RibbonMenu.Button(Values(i)) b.Text = Values(i) .Items.Add(b) Next End With