以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何根据一个批量提交的身份证号,从数据表中查找符合条件的记录 然后按身份证号对应的名字,逐一输出呢? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175669) |
||||||||
-- 作者:cnsjroom -- 发布时间:2022/3/15 2:15:00 -- 如何根据一个批量提交的身份证号,从数据表中查找符合条件的记录 然后按身份证号对应的名字,逐一输出呢? 如何根据一个批量提交的身份证号,从数据表中查找符合条件的记录 然后按身份证号对应的名字,逐一输出呢? 怎么实现如下效果呢: 身份证号1,2,3,4,5,6……先依次从1到6查询到姓名,然后对应的查询1到6在说明与报告等表中是否有数据 按对应的姓名,按如下分类输出信息 格式为 姓名 身份证号 结果 张三 1 某年某月因打架被党纪处分记大过 里斯 2 无受到党纪处分;无收到诫勉谈话 王五 3 某年某月因打架被收到界面谈话 麻子 4 某年某月因打架被收到界面谈话 缓缓 5 某年某月因打架被收到界面谈话
当前代码如下:【怎么完善,并实现上述格式信息呢?】 Dim bb As DataRow=DataTables("干部花名册").sqlfind("身份证号=\'"& e.DataRow("身份证号")&"\'")
|
||||||||
-- 作者:有点蓝 -- 发布时间:2022/3/15 8:32:00 -- 没看懂这些代码逻辑。请上传实例说明 |
||||||||
-- 作者:cnsjroom -- 发布时间:2022/3/15 9:20:00 -- 回复:(有点蓝)没看懂这些代码逻辑。请上传实例说明... 上传了 麻烦老师帮忙看看哈
[此贴子已经被作者于2022/3/15 9:31:41编辑过]
|
||||||||
-- 作者:有点蓝 -- 发布时间:2022/3/15 9:30:00 -- 数据导入内部表再发上来 |
||||||||
-- 作者:cnsjroom -- 发布时间:2022/3/15 9:33:00 -- 回复:(有点蓝)数据导入内部表再发上来
数据表已上传 麻烦老师帮忙看看 谢谢!
当前能够根据单个身份证号去查询
想实现批量多个身份证号 如1,2,3,4,5,6或者更多的身份证号的查询 身份证号1,2,3,4,5,6……先依次从1到6查询到姓名,然后对应的查询1到6在说明与报告等表中是否有数据 按对应的姓名,按如下分类输出信息 格式为 姓名 身份证号 结果 张三 1 某年某月因打架被党纪处分记大过 ;无收到诫勉谈话 里斯 2 无受到党纪处分;无收到诫勉谈话 王五 3 某年某月因打架被收到界面谈话 麻子 4 某年某月因打架被收到界面谈话 缓缓 5 某年某月因打架被收到界面谈话 [此贴子已经被作者于2022/3/15 9:34:49编辑过]
|
||||||||
-- 作者:有点蓝 -- 发布时间:2022/3/15 9:45:00 -- 1楼的代码在项目什么地方?多个身份证号怎么来的?导入?还是从哪个表取的? 1个身份证的代码有了,多个身份证号不就是外面套一层遍历,遍历这些身份证不就行了!
|
||||||||
-- 作者:cnsjroom -- 发布时间:2022/3/15 11:11:00 -- 回复:(有点蓝)1楼的代码在项目什么地方?多个身份证... 1楼代码是在党风廉政意见回复表里面
多个身份证号 目前是手动输入”1,2,3,4,5“到身份证号列里去
当前代码如下: \'\'\' Dim bb0 As DataRow = DataTables("问题处置").sqlfind("关联人=\'"& xmzw(0) &"\'and 身份证号=\'"& Values(Index)&"\'") Dim smybgs As List(Of String)
输出得到: 111,县医院11(副科长级),未受党纪处分;未收到党风廉政方面相关反映,111,县医院11(副科长级),受到政务处分1次,其中:2022年12月31日因喝酒被政务处分(降级);未收到党风廉政方面相关反映, 有没有办法修正一下,对于同一个姓名,所有的查询都组合成一句话. 如: |
||||||||
-- 作者:有点蓝 -- 发布时间:2022/3/15 11:29:00 -- \'\'\' 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
|
||||||||
-- 作者:cnsjroom -- 发布时间:2022/3/15 16:09:00 -- 回复:(有点蓝)'''Dim ss As String ="1,2,3,4,5,6,... 老师 在将输出的得到的s值赋值给表列的时候 只有单条数据 但是s得到的是双条数据 有没有办法修正呢? [此贴子已经被作者于2022/3/15 16:12:53编辑过]
|
||||||||
-- 作者:有点蓝 -- 发布时间:2022/3/15 16:10:00 -- 你猜我猜不猜得到! |