Foxtable(狐表)用户栏目专家坐堂 → 填加分组!


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

主题:填加分组!

美女呀,离线,留言给我吧!
baixiaobai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:317 积分:2555 威望:0 精华:0 注册:2013/3/8 0:32:00
填加分组!  发帖心情 Post By: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 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140425225806.jpg
图片点击可在新窗口打开查看

请问这样填加分组对么?
[此贴子已经被作者于2014-4-25 23:02:50编辑过]

 回到顶部