多列提取不重复的值增加到单元格中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多列提取不重复的值增加到单元格中

共有2556人关注过本帖树形打印复制链接主题：多列提取不重复的值增加到单元格中

ZJZK2018

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

多列提取不重复的值增加到单元格中 发帖心情

Post By：2018/7/18 22:48:00 [显示全部帖子]

老师：

下面这段代码有二个需求：

1、这种集合能排序吗？

2、如何合并到指定单元格中，如：“AA｜33，CC｜55”

Dim st As String

Dim Arys As New List(Of String())

Arys = DataTables("编号统计").GetValues("市外_入围编号|市外_次数")

arys.Sort = "市外_入围编号,市外_次数 DESC"

For Each Ary As String() In Arys

' msgbox(Ary(0) & "|" & Ary(1))

st = Ary(0) & "|" & Ary(1)

st = st & "," & st

'Dim st As String = String.Join("@",Arys.ToArray)

msgbox(st)

ZJZK2018

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/7/19 12:43:00 [显示全部帖子]

老师下面代码是可以用了，有没有更好的办法，难道一定要新增一另一个集合中吗？

Dim Arys As New List(Of String())

Dim lst As New List(Of String)

Arys = DataTables("编号统计").GetValues("市外_入围编号|市外_次数", "", "市外_入围编号,市外_次数 DESC")

For Each Ary As String() In Arys

Dim st As String = Ary(0) & "|" & Ary(1)

If lst.Contains(st) = False Then

lst.Add(Ary(0) & "|" & Ary(1))

End If

msgbox(String.Join(",",lst.ToArray))

ZJZK2018

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/7/22 20:51:00 [显示全部帖子]

有点甜老师：

按6楼的做法，弹出的是空白，没有数据。我的需求是：把排序前五项输入到textbox中去

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多值列次数.table

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

[此贴子已经被作者于2018/7/22 20:51:57编辑过]

下一主题 >> << 上一主题

主题：多列提取不重复的值增加到单元格中