如何根据遍历表得到的单位事项类别事项名称来对应进行换行组合数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim smybgs As List(Of String)

smybgs = DataTables("统计分析报告同比同期占比").GetValues("所属单位")

dim b as new stringbuilder

For Each smybg As String In smybgs

Dim bb21 As Integer =DataTables("统计分析报告同比同期占比").sqlCompute("count(guid)")

b.Append("2023年度" & smybg & bb21 & "次,")

Dim smybgs1 As List(Of String)

smybgs1 = DataTables("统计分析报告同比同期占比").GetValues("事项类别","所属单位='" & smybg & "' and 事项类别<>'黔南州'","[_Identify] desc")

if smybgs1.count > 0

b.Appendline(",其中:")

end if

For Each smybg1 As String In smybgs1

b.Appendline(smybg1)

Dim drs As List(of DataRow) =DataTables("统计分析报告同比同期占比").SQLSelect("所属单位='" & smybg & "'And 事项类别='" & smybg1 & "'")

For Each r As DataRow In drs

b.Appendline("在" & r("事项名称") & "(" & r("年度总数") & ")次,与上年度同期占比" & r("年度同期占比"))

output.show(b.tostring)

主题：如何根据遍历表得到的单位 事项类别 事项名称 来对应进行换行组合数据