比如,下一个的代码
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