Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在遍历指定列中生成的文字前面加上递增的序号呢？


  共有3795人关注过本帖树形打印复制链接

主题：如何在遍历指定列中生成的文字前面加上递增的序号呢？
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		如何在遍历指定列中生成的文字前面加上递增的序号呢？  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）……dim i as integer = 1  &nb...  发帖心情 Post By：2023/4/4 11:57:00 [显示全部帖子]

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


谢谢老师。当前所属单位有多个部门，每个部门下面会有事项类别及对应的事项名称
以所属单位进行数据组合时，怎么实现将部门的值，组合到文字中呢？是先将数据进行单位统计后 在进行遍历读取？还是直接遍历读取所有部门的值  对应到事项类别及事项名称下呢？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询