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

一字典，键为日期型，值为字符型。

问题：如何字典中的项将键按日期排序？谢谢

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

假设字典项有：

键                值

A2014年3月：C

A2013年1月：A

B2013年1月：B

 

 

键为字符型，但可以转换为日期型，

经按日期排序后实现：

键 值

A2013年1月：A

B2013年1月：B

A2014年3月：C

 

日期中存在相同的年月。

 不可以直接排序。

如果键为字符型，值为日期型，

如何按值排序呢

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

 

老师，如果值相同，排序后如何找到对应的键？

 

如：Dim dic As New Dictionary(of String, Date)
dic.add("A", "2015-01-01")
dic.add("B", "2015-03-01")
dic.add("C", "2015-01-01")

 

按值排序后为：

"A", "2015-01-01"

"C", "2015-01-01"
"B", "2015-03-01"

 键相同？键是唯一的啊。