以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不同列行合并去重  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194736)

--  作者:timber83
--  发布时间:2025/1/9 11:53:00
--  不同列行合并去重
表A 水果产地
水果 产地
苹果 山东
香蕉 海南

表B 水果大小
水果大小级别1大小级别2
苹果大1号
苹果大2号
香蕉中1号

表C 水果颜色
水果 颜色级别1 颜色级别2 颜色级别3 颜色级别4
苹果 红色 深红 大深红
苹果 红色 深红 中深红
香蕉 黄色 淡黄 浅浅黄 浅浅浅黄


将同一水果的三张表的其他列的值合并,并去重,达到如下结果  该怎么编码

水果 标签
苹果 大|大1号|大2号|红色|深红|大深红|中深红|黄色|淡黄|浅浅黄|山东
香蕉 黄色|淡黄|浅浅黄|浅浅浅黄|中|中1号|海南

--  作者:y2287958
--  发布时间:2025/1/9 12:08:00
--  
苹果没有“黄色|淡黄|浅浅黄”吧
--  作者:有点蓝
--  发布时间:2025/1/9 13:37:00
--  
使用集合去重,比如

dim ss() as string = {"a","d","a","c"}
dim lst as new list(of string)
for each s as string in ss
if lst.contains(s)=false then ‘没有添加过,再添加
lst.add(s)
end if
next
msgbox(string.join("|",lst.toarray))

--  作者:timber83
--  发布时间:2025/1/9 15:33:00
--  
集合这个不懂,有没有参考文档
--  作者:timber83
--  发布时间:2025/1/9 15:35:00
--  
是的,我弄错误了,
--  作者:有点蓝
--  发布时间:2025/1/9 16:10:00
--  
如果连集合都不懂,建议先学 一下编程基础了