Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何调整，ListView分组位置


  共有4025人关注过本帖树形打印复制链接

主题：如何调整，ListView分组位置
帅哥哟，离线，有人找我吗？
ndxfke
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		如何调整，ListView分组位置  发帖心情 Post By：2014/4/20 16:27:00 [显示全部帖子]

默认有两个分组，根据界面需求，想第一个分组为功能类，其次是报表类。

 

生成列表时，如何控制呢。

 


图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ndxfke
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		  发帖心情 Post By：2014/4/20 16:36:00 [显示全部帖子]

Dim lv3 As WinForm.ListView = e.Form.Controls("ListView3")
lv3.Reset
    lv3.View = ViewMode.LargeIcon
    Dim gps As new List(of String)
    gps = dt.GetValues("类型","模块名称 = '" & str & "'")
    For Each gp As String In gps
        Dim vg As WinForm.ListViewGroup = lv3.Groups.Add
        vg.Name = gp
        vg.Text = gp & "类"
    Next
    For Each dr As DataRow In dt.DataRows
        If dr("模块名称") = str
            Dim key As String = dr("图标")
            lv3.Images.AddLargeImage(key,key)
            Dim vr As WinForm.ListViewRow = lv3.Rows.Add
            vr.ImageKey = key
            vr.Name = dr("功能名称")
            vr.Text = dr("功能名称")
            If dr("类型") = "功能"
                vr.Group = "功能"
            Else
                vr.Group = "报表"
            End If
        End If
    Next

 回到顶部
帅哥哟，离线，有人找我吗？
ndxfke
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		  发帖心情 Post By：2014/4/20 16:42:00 [显示全部帖子]

挺好用。

 

顺便请教下，只这一种办法么
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 5 次数据查询