如何在遍历指定列中生成的文字前面加上递增的序号呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim smybgs As List(Of String)

smybgs = dt1.GetValues("所属部门")

Dim b As new stringbuilder

如何在遍历指定列中生成的文字前面加上递增的序号呢？

在有点蓝老师的帮助下，下面代码可以生成对应的文本结构，怎么实现在红色部分新增对应的序号递增值呢？

For Each smybg As String In smybgs

Dim bb21 As Integer =dt1.sqlCompute("count(guid)")

Dim smybgs1 As List(Of String)

smybgs1 = dt1.GetValues("事项类别","所属部门='" & smybg & "' and 所属部门<>'黔南州'","[_Identify] desc")

If smybgs1.count > 0

b.Append("【2023年度3月" & smybg & "数据】")

b.Appendline(",其中:")

End If

For Each smybg1 As String In smybgs1

b.Appendline(…… & smybg1) 按类别的数量对应新增数值作为序号

Dim drs As List(of DataRow) =dt1.SQLSelect("所属部门='" & smybg & "'And 事项类别='" & smybg1 & "'")

For Each r As DataRow In drs

b.Appendline(…… & r("事项名称") & "(" & r("年度总数") & ")次,与上年度同期占比" & r("年度同期占比") &"%,"& r("月份")& "月" & r("本年度月份数据") & "次,同月占比"& r("月份同期占比") & "%,占该项" & r("平均数占比") &"%("&r("是否超过") &"即"& r("平均数比例") & "%)") 按事项名称的数量对应新增数值作为序号

……

dim i as integer = 1

For Each smybg1 As String In smybgs1

b.Appendline(i & smybg1) 按类别的数量对应新增数值作为序号

i +=1

……

Dim smybgs1 As List(Of String)

smybgs1 = dt11.GetValues("事项类别","所属单位='" & e.Values("所属单位") & "' and 所属单位<>'黔南州'","[_Identify] desc")

If smybgs1.count > 0

b.Append("【2023年度3月" & e.Values("所属单位") & "数据】")

b.Appendline(",其中:")

End If

Dim i As Integer = 1

For Each smybg1 As String In smybgs1

b.Appendline(i & "、" &smybg1)

i +=1

Dim drs As List(of DataRow) =dt11.SQLSelect("所属单位='" & e.Values("所属单位") & "'And 事项类别='" & smybg1 & "'")

Dim ii As Integer = 1

For Each r As DataRow In drs

b.Appendline("(" &ii &")" &r("事项名称") & "(" & r("年度总数") & ")次,与上年度同期占比" & r("年度同期占比") &"%,"& r("月份")& "月" & r("本年度月份数据") & "次,同月占比"& r("月份同期占比") & "%,占该项" & r("平均数占比") &"%("&r("是否超过") &"即"& r("平均数比例") & "%)")

ii +=1

谢谢老师。当前所属单位有多个部门，每个部门下面会有事项类别及对应的事项名称

以所属单位进行数据组合时，怎么实现将部门的值，组合到文字中呢？是先将数据进行单位统计后在进行遍历读取？还是直接遍历读取所有部门的值对应到事项类别及事项名称下呢？

业务逻辑自己试呗。2种方式都试试，看哪个效率高

主题：如何在遍历指定列中生成的文字前面加上递增的序号呢？