如何用pq实现层级的分拆显示?

pxy0409

渡渡orz 发表于 2024-5-28 09:02
用Record.FromList其实隐含了唯一值条件，否则Record.FieldOrDefault取值是有偏差的。
一种新方法，速度 ...

感谢提供新思路!

kirete

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     更改的类型 = Table.TransformColumnTypes(源,{{"编号", type text}, {"路径", type text}, {"名称", type text}}),
   
4.     l =
   
5.         List.Buffer( Table.ToList( 更改的类型, each List.FirstN( _, 2 ) ) ),
   
6.     n =
   
7.         List.Count( Text.PositionOf( List.Max( List.Buffer( 更改的类型[路径] ) ), ".", 2 ) ) + 1,
   
8.     自定义1 =
   
9.         Table.SplitColumn(
   
10.             更改的类型,
    
11.             "路径",
    
12.             each
    
13.                 List.Transform(
    
14.                     Text.Split( _, "." ),
    
15.                     (x)=> List.Select( l, (y)=> y{0} = x ){0}?{1}? ?? x
    
16.                 ),
    
17.             List.Transform( { 1 .. n }, (x)=> "层级" & Text.From( x ) )
    
18.         )
    
19. in
    
20.     自定义1

复制代码

sm629

试试：

1. let
   
2.     a = List.Accumulate(
   
3.     Table.ToRows(Excel.CurrentWorkbook(){[Name="id对应表"]}[Content]),
   
4.     Table.DuplicateColumn(Excel.CurrentWorkbook(){[Name="路径"]}[Content], "路径", "路径复制"),
   
5.     (x,y)=>Table.ReplaceValue(x,y{0},y{1},Replacer.ReplaceText,{"路径复制"})),
   
6.     按分隔符拆分列 = Table.SplitColumn(a, "路径复制", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"路径复制.1", "路径复制.2", "路径复制.3", "路径复制.4", "路径复制.5", "路径复制.6", "路径复制.7", "路径复制.8"})
   
7. in
   
8.     按分隔符拆分列

复制代码

pxy0409

kirete 发表于 2024-5-29 09:41

谢谢提供新的方法!

pxy0409

sm629 发表于 2024-5-29 15:13
试试：

谢谢,这种方法字数最少,但经10万行数据测试,超过2分钟尚未加载,没有再继续等下去.看样子,数据查询在实务中不宜写得太综合呢