重复字段能否生成list view - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

我这有一个表结构

编码一级二级三级

1 地区分类大客户

2 地区分类一般客户

3 地区分类其他

根据一级和二级生成 LIST VIEW

但是会生成如下图片

地区（一级）

分类分类分类

能否根据一级和二级生成以下结果

地区（一级）

分类

老师，

这个例子我打开了，我想要的是这个表的数据中的一部分生成LISTVIEW 不是平铺，要的是表中的一部生成，如下图：

此主题相关图片如下：生成范围.png

希望生成

男

先生博士

女

女士

而不是

男

先生先生先生博士....

女

女士女士女士

因为，先生里面有重复的值怎么让他变成不重复的显示呢

老师，

烦您帮忙看看哪里不对呢

Dim dt As DataTable = DataTables("测试2")

Dim drs As List(of DataRow) = DataTables("测试2").Select("功能主模块 = '总账管理'")

If drs IsNot Nothing Then

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1") '生成桌面功能图标

lvw.View=ViewMode.LargeIcon

Dim grps() As String = dt.GetValues("一级模块")

Dim gn() As String = dt.GetValues("二级模块")

For Each gp As String In grps 'add group

lvw.Groups.Add(gp)

Dim count As Integer

lvw.Images.LargeSize= new size(32,32)

For Each dr As DataRow In drs '从数据表中提取数据

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

'lvw.Images.Clear() '清除原来的图片

'vr.Index

lvw.Images.AddImage(dr("功能ID"),dr("模块图标"),dr("模块图标"))

'MessageBox.Show(dr("模块图标"))

'MessageBox.Show(dr("功能ID"))

vr.Text = dr("二级模块")

vr.Group = dr("一级模块")

vr.ImageKey = dr("功能ID")

'MessageBox.Show(dr("功能ID"))

'MessageBox.Show(vr.ImageKey)

vr.Tag = dr

count = count +1

'If count =2

'Return

'End If

End If

.NET Framework 版本：2.0.50727.3053

Foxtable 版本：2014.11.11.1

错误所在事件：窗口,可视化授权,AfterLoad

详细错误信息：

无法将类型为“System.Collections.Generic.List`1[System.String]”的对象强制转换为类型“System.String[]”。

此主题相关图片如下：结构.png

老师，

改好了

生成的LIST VIEW 还是重复的为什么呢

Dim dt As DataTable = DataTables("测试2")

Dim drs As List(of DataRow) = DataTables("测试2").Select("功能主模块 = '总账管理'")

If drs IsNot Nothing Then

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1") '生成桌面功能图标

lvw.View=ViewMode.LargeIcon

Dim grps As List(Of String) =dt.GetValues("一级模块")

Dim gn As List(Of String) =dt.GetValues("二级模块")

For Each gp As String In grps 'add group

lvw.Groups.Add(gp)

Dim count As Integer

lvw.Images.LargeSize= new size(32,32)

For Each dr As DataRow In drs '从数据表中提取数据

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

'lvw.Images.Clear() '清除原来的图片

'vr.Index

lvw.Images.AddImage(dr("功能ID"),dr("模块图标"),dr("模块图标"))

'MessageBox.Show(dr("模块图标"))

'MessageBox.Show(dr("功能ID"))

vr.Text = dr("二级模块")

vr.Group = dr("一级模块")

vr.ImageKey = dr("功能ID")

'MessageBox.Show(dr("功能ID"))

'MessageBox.Show(vr.ImageKey)

vr.Tag = dr

count = count +1

'If count =2

'Return

'End If

End If

麻烦您了，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:界面.rar

要根据一级二级生成

哦增加了两列图标

希望对应的图标

此主题相关图片如下：qq图片20150417150335.jpg

老师，

我的授权窗口点击目录树，没有见权限设置到用户列和备注里，烦请老师给看看。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:界面.rar

主题：重复字段能否生成list view