代码如下:
r("文件") = "暂时没有文件"
Else
Dim dics As new SortedDictionary(Of String, String)
For Each dl As String In dls
Dim Parts() As String = dl.Split("*")
dics.Add(Parts(1) & dl, dl)
Next
Dim arr(dics.keys.count-1) As String
dics.keys.copyto(arr,0)
For i As Integer = arr.length - 1 To 0 Step -1
Dim dl As String = dics(arr(i))
Dim Parts() As String = dl.Split("*")
Next
For Each dl As String In dics.values
Dim Parts() As String = dl.Split("*")
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
排序没变:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:snipaste_2020-08-25_12-34-59.jpg