- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 填加分组! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49925)
-- 发布时间：2014/4/25 23:00:00
-- 填加分组!
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim dt As DataTable = DataTables("房间列表")
lvw.Reset
lvw.View = ViewMode.LargeIcon
Dim gps As new List(of String)
gps = dt.GetValues("分店")
For Each gp As String In gps
Dim vg As WinForm.ListViewGroup = lvw.Groups.Add
vg.Name = gp
vg.Text = gp & "店"
Next
Dim dt As DataTable = DataTables("房间列表")
lvw.Reset
lvw.View = ViewMode.LargeIcon
Dim gps As new List(of String)
gps = dt.GetValues("分店")
For Each gp As String In gps
Dim vg As WinForm.ListViewGroup = lvw.Groups.Add
vg.Name = gp
vg.Text = gp & "店"
Next
此主题相关图片如下：qq图片20140425225806.jpg
请问这样填加分组对么?
[此贴子已经被作者于2014-4-25 23:02:50编辑过]
-- 发布时间：2014/4/26 9:18:00
--
没错的