'''
Dim ss As String ="1,2,3,4,5,6,522725198011120011"
Dim Values() As String
If ss.Contains(",") Then
Values = ss.split(",")
Else If ss.Contains(",") Then
Values = ss.split(",")
End If
For Index As Integer = 0 To Values.Length - 1
'Output.Show(Values(Index))
Dim xmzws As List(Of String())
xmzws = DataTables("干部花名册").GetValues("姓名|单位及职务","身份证号='" & Values(Index) & "'")
For Each xmzw As String() In xmzws
'Output.Show(xmzw)
Dim bb0 As DataRow = DataTables("问题处置").sqlfind("关联人='"& xmzw(0) &"'and 身份证号='"& Values(Index)&"'")
Dim bb2 As Integer =DataTables("问题处置").sqlCompute("count(身份证号)","关联人='"& xmzw(0) &"'and 身份证号='"& Values(Index)&"'")
Dim bb1 As String
Dim drs0 As List(of DataRow) =DataTables("问题处置").SQLSelect("关联人='"& xmzw(0) &"'and 身份证号='"& Values(Index)&"'")
Dim Names0 As New List(Of object)
Dim Names20 As New List(Of object)
For Each rr As DataRow In drs0
Names20.add(format(rr("时间"),"yyyy年MM月dd日") & "收到" & rr("来源") & "转来的" & rr("类别") & ",内容为:" & rr("摘要") & ",于" & format(rr("处理时间"),"yyyy年MM月dd日") & "处理完毕,处理情况为:" & rr("处理结果") )
Next
If bb0 IsNot Nothing Then
bb1="收到党风廉政方面相关反映" & bb2 & "次,其中:" & String.join(";",Names20.toarray) & ";"
Else
bb1="未收到党风廉政方面相关反映"
End If
Dim smybgs As List(Of String)
smybgs = DataTables("说明与报告").GetValues("类别")
Dim s As String = xmzw(0) &"," & xmzw(1) & "," & bb1 & ";"
Dim bbbb As Integer
For Each smybg As String In smybgs
Dim bb01 As DataRow = DataTables("说明与报告").sqlfind("关联人='"& xmzw(0) &"'and 身份证号='"& Values(Index) &"'and 类别='" & smybg & "'")
Dim bb21 As Integer =DataTables("说明与报告").sqlCompute("count(身份证号)","关联人='"& xmzw(0) &"'and 身份证号='"& Values(Index) &"'and 类别='" & smybg & "'")
Dim bb11 As String
Dim drs As List(of DataRow) =DataTables("说明与报告").SQLSelect("关联人='"& xmzw(0) &"'and 身份证号='"& Values(Index) &"'and 类别='" & smybg & "'")
Dim Names As New List(Of object)
Dim Names2 As New List(Of object)
For Each r As DataRow In drs
Names2.add(format(r("时间"),"yyyy年MM月dd日") & "因" & r("事项") & "被" & r("类别") & "(" & r("内容") & ")")
Next
If bb01 IsNot Nothing Then
bb11="受到" & smybg & bb21 & "次,其中:" & String.join(";",Names2.toarray) & ";"
Else
bb11="未受" & smybg & ";"
End If
s = s & bb11 & ";"
Next
output.Show(s)
Next
Next