主题：如果把已选的下拉菜单换紧邻的后一个选项

比如，下一个的代码

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