以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]提取列内容作为集合  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188516)

--  作者:lgj716330
--  发布时间:2023/9/24 10:26:00
--  [求助]提取列内容作为集合

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20230924102524.png
图片点击可在新窗口打开查看

Dim b As New GroupTableBuilder("统计表",DataTables("测试表"))
b.Groups.AddDef("月份")
b.Totals.AddDef("A品牌")
b.Build

Dim Arys As List(Of String())
Arys = DataTables("统计表").GetValues("月份|A品牌")

如何将月份按\'1月份\',\'3月份\',\'4月份\'这样作为一个字符集合提取出来
将A品牌按对应的12,4,6样作为一个数值集合提取出来


--  作者:有点蓝
--  发布时间:2023/9/24 19:20:00
--  
Dim Arys As List(Of String)
Arys = DataTables("统计表").GetValues("月份")

Dim Arys2 As List(Of String)
Arys2 = DataTables("统计表").GetValues("A品牌")

--  作者:lgj716330
--  发布时间:2023/9/24 20:12:00
--  
我的意思是将提取的结果直接作为一个字符串展现出来
dim s as string
Output.Show(s)的结果是"\'1月份\',\'2月份\',\'3月份\'"这样


--  作者:有点蓝
--  发布时间:2023/9/24 20:20:00
--  
dim s As string ="," &  DataTables("统计表").GetComboListString("月份").Replace("|","\',\'") & "\'"
--  作者:lgj716330
--  发布时间:2023/9/24 21:29:00
--  
Dim s1 As String = DataTables("统计表").GetComboListString("A品牌").Replace("|", ",")
这种处理会把重复值排除,如这里的A品牌数据可能会有重复,希望的结果是不要排除重复值,和月份一一对应

--  作者:有点蓝
--  发布时间:2023/9/24 21:38:00
--  
GetValues一样会排除重复值。不排除,只能遍历所有行,逐个合成