[求助]关于LISTVIEW分组现实后的修改问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、

Dim vr As WinForm.ListViewRow = lvw.Rows.Add()

vr.Group = "党内职务"

2、3、

For Each dr As DataRow In DataTables("党组织建设表").DataRows

Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

r.Group = dr("党内职务") '指定所属分组

For Each cl As String In cls '逐列取值

r(cl) = dr(cl)

r.Tag = dr

4、

For Each zh As String In DataTables("党组织建设表").GetValues("党内职务",,"序号") '增加分组

Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()

grp.Name = zh

grp.Text = zh

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试(3).table

主题：[求助]关于LISTVIEW分组现实后的修改问题