ListView做的文件件管理器怎么排序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ListView做的文件件管理器怎么排序

共有3009人关注过本帖树形打印复制链接主题：ListView做的文件件管理器怎么排序

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/24 20:16:00 [显示全部帖子]

……

Dim dls As List(of String)
dls = ftp.GetDetailList(path)
If dls.Count < = 0 Then
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
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)
Next

For Each dl As String In dics.values

Dim Parts() As String = dl.Split("*")
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
Dim Dot As Integer = parts(0).LastIndexOf(".") '定义.的位置

……

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/25 8:45:00 [显示全部帖子]

dics.Add(Parts(1) & format（date.now,"ss.fffff"）, dl)

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/25 8:59:00 [显示全部帖子]

dics.Add(Parts(1) & dl, dl)

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/25 9:11:00 [显示全部帖子]

SortedDictionary这个百度吧，是.net的类型

不对是因为有重复的日期值

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/25 11:32:00 [显示全部帖子]

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) & format(Date.now,"ss.fffff"), 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

dl As String = dics(arr(i))

Dim Parts() As String = dl.Split("*")

……

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/25 13:32:00 [显示全部帖子]

代码如下：

   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("*")
        Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

下一主题 >> << 上一主题

主题：ListView做的文件件管理器怎么排序