'----显示下拉菜单选项
e.ComboBox.Items.Clear
Dim slist As List(of String) = DataTables("用户信息表").GetUniqueValues("单位代码 < 3800 ","单位代码")
For Each s As String In slist
Dim b As New RibbonMenu.Button(s)
b.Text = s
e.ComboBox.Items.Add(b)
Next
下拉的菜单中 有5项:3201 3302 3405 3601,假如当前已选3302,现在再添加两个按钮【上一个】、【下一个】
1、点击按钮【上一个时】3302 就改为3201,点击按钮【下一个】时,3302就改为3405
2、如果当前选项就是第一个,则点击【上一个】时,就没反应,或者提示:以是第一个了
敬请高手指导一下!