- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：listview按图如何实现分组显示呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68336)
-- 发布时间：2015/5/14 23:33:00
-- 求助：listview按图如何实现分组显示呢？
员工信息表中有一个部门名字段，求指导怎么按部门名字实现分组显示
目前只实现如图效果，要求实现如图效果样式，同时实现分组
此主题相关图片如下：qq拼音截图未命名.png
代码部分：
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.AddLargeImage("Man", ProjectPath & "Attachments\\Man48.ico") \'添加代表男性的一对图标
lvw.Images.AddLargeImage("Woman", ProjectPath & "Attachments\\Woman48.ico") \'添加代表女性的一对图标
For Each dr As DataRow In DataTables("员工信息").DataRows \'从数据表中提取数据
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
vr.Text = dr("名字") \'设置标题
If dr("性别") = "男" Then \'设置分组
vr.ImageKey = "Man"
Else
vr.ImageKey = "Woman"
End If
Next
lvw.ResumeRedraw() \'恢复绘制
-- 发布时间：2015/5/15 0:02:00
--
查阅 http://www.foxtable.com/help/topics/2772.htm
-- 发布时间：2015/5/15 0:09:00
-- 回复：（lhpc120）查阅 http://www.foxtable.com/help...
那是固定字段的值 和我所需要的不大一样 求直接按表中部门名称进行分组
-- 发布时间：2015/5/15 8:40:00
--
一样的,先获得部门名称. 用部门名称建立分组
-- 发布时间：2015/5/15 9:16:00
--
帮助本来就有，你也不好好学一下
http://www.foxtable.com/help/topics/2773.htm