主题：[求助]字典排序问题

dim dmp As New TableDataMap
dmp.DataTable = "客户" '指定数据来源表
dmp.ValueCol = "ID" '指定取值列
dmp.DisplayCol = "公司" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "ID,公司,姓氏,名字,职务,业务电话,传真号,地址,城市,邮政编码"
dmp.Sort = "城市" '指定排序方式
Tables("订单").Cols("客户 ID").DataMap = dmp.CreateDataMap() '生成并设置DataMap

http://www.foxtable.com/help/topics/2653.htm

Dim dic As New SortedDictionary(of Date, String)
dic.add("2016-01-05", "广东")
dic.add("2015-05-15", "湛江")
dic.add("2016-03-03", "中国")

For Each i As String In dic.Keys
    msgbox(i & " " & dic(i))
Next

mark 选择排序

Dim dic As New Dictionary(of String, String)
dic.add("A2016-01-05", "广东")
dic.add("B2015-05-15", "湛江")
dic.add("A2016-03-03", "中国")

Dim keys As new List(Of String)
For Each key As String In dic.Keys
    keys.add(key)
Next

Dim i As Integer, j As Integer

For i = 0 To keys.count - 1
    For j = i + 1 To keys.count -1
        If right(keys(i), 10) > right(keys(j), 10) Then
            Dim temp = keys(i)
            keys(i) = keys(j)
            keys(j) = temp
        End If
    Next j
Next i

For Each key As String In keys
    msgbox(dic(key))
Next

 循环每一个值，查找对应的键

那有什么办法？谁叫你根据值查找，那你就返回两个键给人家选择。