\'----显示下拉菜单选项
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、如果当前选项就是第一个，则点击【上一个】时，就没反应，或者提示：以是第一个了

敬请高手指导一下！

比如，下一个的代码

Dim c = RibbonTabs("Common").Groups("ClipBoard").Items("Paste")
Dim slist As List(of String) = DataTables("用户信息表").GetUniqueValues("单位代码 < 3800 ","单位代码")
For i As Integer = 0 To slist.Count-1
    Dim s = slist(i)
    If s = c.text Then
        If i < slist.count-1 Then
            c.text = slist(i+1)
            Exit For
        End If
    End If
Next