[求助]列排序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("部门名称", Gettype(String), 30)

dtb.AddDef("月份", Gettype(String), 6)

For Each prd() As String In DataTables("统计表1").GetValues("" & HZ3 & "|成本属性")

dtb.AddDef(prd(1) & "_" & prd(0), Gettype(Double))

dtb.AddDef("总计", Gettype(Double))

dtb.Build()

Tables("汇总报表_Table1").DataSource = dtb.BuildDataSource() '

For Each nm() As String In DataTables("统计表1").GetValues("部门名称|月份")

Dim dr As DataRow = DataTables("汇总报表_Table1").AddNew()

dr("部门名称") = nm(0)

dr("月份") = nm(1)

dr("总计") =DataTables("统计表1").Compute("sum(金额)","部门名称 = '" & nm(0) & "' and 月份 = '" & nm(1) & "'")

For Each prd() As String In DataTables("统计表1").GetValues("" & HZ3 & "|成本属性")

dr(prd(1) & "_" & prd(0)) = DataTables("统计表1").Compute("Sum(金额)","部门名称 = '" & nm(0) & "' and 月份 = '" & nm(1) & "' and " & HZ3 & " = '" & prd(0) & "' and 成本属性= '" & prd(1) & "'")

有两行列标题，如何根据第一行的列标题排序

此主题相关图片如下：72af41eb-07b9-4459-8c36-05573a08ba04.png

[此贴子已经被作者于2020/4/29 20:01:31编辑过]

试试，加到最后

dim lst as new list(of string)

for each c as col in Tables("汇总报表_Table1").cols

if c.name.contains("_") then list.add(c.name)

lst.sort()

lst.Reverse

for i as integer = 0 to lst.count - 1

Tables("汇总报表_Table1").cols(lst(i)).move(2)

dim lst as new list(of string)

for each c as col in Tables("汇总报表_Table1").cols

if c.name.contains("_") then lst.add(c.name)

lst.sort()

lst.Reverse

for i as integer = 0 to lst.count - 1

Tables("汇总报表_Table1").cols(lst(i)).move(2)

笔误。还有问题么？

Dim lst As new List(of String)

For Each c As Col In Tables("统计表2").cols

If c.Caption.contains("_") Then Lst.add(c.Caption) Else Lst.add(c.name)

lst.sort()

lst.Reverse

For i As Integer = 0 To lst.count - 1

Tables("统计表2").cols(lst(i)).move(2)

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

总提示以下错误，这样的统计表要怎么排序呢，用If c.name.contains("_") Then Lst.add(c.name)或If c.Caption.contains("_") Then Lst.add(c.Caption)都不行

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

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

[此贴子已经被作者于2021/2/4 13:58:19编辑过]

Dim lst As new sortedDictionary(Of String, String)

For Each c As Col In Tables("统计表2").cols

If c.Caption.contains("_") Then Lst.add(c.Caption,c.name) Else Lst.add(c.name,c.name)

For i As Integer = 0 To lst.keys.count- 1

Tables("统计表2").cols(lst(lst.keys(i))).move(2)

保存代码时提示

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

For each s as string in lst.keys

Tables("统计表2").cols(lst(s)).move(2)

主题：[求助]列排序