以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  如何在遍历指定列中生成的文字前面加上递增的序号呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186049)

--  作者：cnsjroom --  发布时间：2023/4/3 18:16:00 --  如何在遍历指定列中生成的文字前面加上递增的序号呢？ 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("平均数比例") &  "%)") 按事项名称的数量对应新增数值作为序号         Next     Next Next

--  作者：有点蓝 --  发布时间：2023/4/3 19:55:00 --   …… dim i as integer = 1     For Each smybg1 As String In smybgs1         b.Appendline(i  & smybg1)   按类别的数量对应新增数值作为序号 i +=1 ……

--  作者：cnsjroom --  发布时间：2023/4/4 11:57:00 --  回复：（有点蓝）……dim i as integer = 1  &nb... 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         Next     Next 谢谢老师。当前所属单位有多个部门，每个部门下面会有事项类别及对应的事项名称 以所属单位进行数据组合时，怎么实现将部门的值，组合到文字中呢？是先将数据进行单位统计后 在进行遍历读取？还是直接遍历读取所有部门的值  对应到事项类别及事项名称下呢？

--  作者：有点蓝 --  发布时间：2023/4/4 12:04:00 --   业务逻辑自己试呗。2种方式都试试，看哪个效率高