如何根据一个批量提交的身份证号，从数据表中查找符合条件的记录然后按身份证号对应的名字，逐一输出呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'''

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("处理结果") )

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("内容") & ")")

If bb01 IsNot Nothing Then

bb11="受到" & smybg & bb21 & "次，其中：" & String.join(";",Names2.toarray) & "；"

Else

bb11="未受" & smybg & "；"

End If

s = s & bb11 & ";"

output.Show(s)

主题：如何根据一个批量提交的身份证号，从数据表中查找符合条件的记录 然后按身份证号对应的名字，逐一输出呢？

主题：如何根据一个批量提交的身份证号，从数据表中查找符合条件的记录然后按身份证号对应的名字，逐一输出呢？