以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格列拆分  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194719)

--  作者:timber83
--  发布时间:2025/1/8 10:21:00
--  表格列拆分
我有一张表 
水果 颜色 产地 口感
苹果 红色|蓝色 山东|新疆|陕西 甜|脆|粉

如何自动如下一张,新表,规则 颜色列、产地列、口感列内多值分别拆分
水果 颜色 产地 口感
苹果 红色 山东
苹果 红色 山东
苹果 红色 山东
苹果 红色 新疆
苹果 红色 新疆
苹果 红色 新疆
苹果 红色 陕西
苹果 红色 陕西
苹果 红色 陕西
苹果 蓝色 山东
苹果 蓝色 山东
苹果 蓝色 山东
苹果 蓝色 新疆
苹果 蓝色 新疆
苹果 蓝色 新疆
苹果 蓝色 陕西
苹果 蓝色 陕西
苹果 蓝色 陕西

--  作者:易简
--  发布时间:2025/1/8 10:56:00
--  
http://www.foxtable.com/webhelp/topics/0245.htm
[此贴子已经被作者于2025/1/8 10:59:57编辑过]

--  作者:有点蓝
--  发布时间:2025/1/8 11:09:00
--  
For Each dr As DataRow In DataTables("表A").DataRows
For Each s1 As string In dr("颜色").split()
For Each s2 As string In dr("产地").split()
For Each s3 As string In dr("口感").split()
dim r as row = tables("新表").addnew
r("水果") = dr("水果")
r("颜色") = s1
r("产地") = s2
Next
Next

Next

Next