Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表A录入 人员信息时如何Select 表B身份证号相同人员？


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

主题：[求助]表A录入 人员信息时如何Select 表B身份证号相同人员？
帅哥哟，离线，有人找我吗？
tkxffb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1665 威望：0 精华：0 注册：2018/4/22 18:54:00 		[求助]表A录入 人员信息时如何Select 表B身份证号相同人员？  发帖心情 Post By：2018/11/30 13:36:00 [只看该作者]

各位老师，人事类项目中有两个 表，分别是《在职人员信息表》和《离职人员信息表》，现在向《在职人员信息表》录入人员信息时，为了避免重复录入，我参照开发指南写了下面的两段代码，代码写在录入窗口身份证号控件Leave事件下，第一段代码能用，第二段代码不能用，请老师看看错在哪里，改一下。谢谢！！！

'-----以下是从在职人员表查找身份证号重复的行
Dim drs As List(of DataRow) =  DataTables("在职人员信息表").Select("", "身份证号")
For i As Integer = drs.count - 1 To 1 Step - 1
    If drs(i)("身份证号") = drs(i-1)("身份证号") Then     
    Forms("重复录入提示窗口之一").open
    End If
Next

'-----以下是从离职人员表查找身份证号重复的行
Dim drs As List(of DataRow) =  Tables("在职人员信息表").filter = "身份证号 in ('" & DataTables("离职人员信息表").GetComboListString("身份证号") & "')"
For i As Integer = drs.count - 1 To 1 Step - 1
    If drs(i)("身份证号") = drs(i-1)("身份证号") Then     
    Forms("重复录入提示窗口之二").open
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1310 积分：9512 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2018/11/30 13:57:00 [只看该作者]

为什么要这样做，其实《在职人员信息表》和《离职人员信息表》 可以做成一个表， 只在你增加一列来判断他们是不是在职就可以了。
 回到顶部
帅哥哟，离线，有人找我吗？
tkxffb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1665 威望：0 精华：0 注册：2018/4/22 18:54:00 		  发帖心情 Post By：2018/11/30 14:43:00 [只看该作者]

其实在这项目一开始就是把在职的和离职的做成一个表了，但由于涉及奖惩、履历等另外 的表，后来又分开了

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/30 15:31:00 [只看该作者]

改成

 

Dim drs As List(of DataRow) =  Tables("在职人员信息表").filter = "身份证号 in ('" & DataTables("离职人员信息表").GetComboListString("身份证号").replace("|", "','") & "')"
 回到顶部
帅哥哟，离线，有人找我吗？
tkxffb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1665 威望：0 精华：0 注册：2018/4/22 18:54:00 		  发帖心情 Post By：2018/11/30 18:00:00 [只看该作者]

图片点击可在新窗口打开查看有点甜老师，上面的代码提示错误

图片点击可在新窗口打开查看此主题相关图片如下：360截图20181130175915342.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/30 18:23:00 [只看该作者]

改成

 

Dim drs As List(of DataRow) =  DataTables("在职人员信息表").Select("身份证号 in ('" & DataTables("离职人员信息表").GetComboListString("身份证号").replace("|", "','") & "')")

 

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
tkxffb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1665 威望：0 精华：0 注册：2018/4/22 18:54:00 		  发帖心情 Post By：2018/11/30 18:38:00 [只看该作者]

以下是引用有点甜在2018/11/30 18:23:00的发言：

改成

 

Dim drs As List(of DataRow) =  DataTables("在职人员信息表").Select("身份证号 in ('" & DataTables("离职人员信息表").GetComboListString("身份证号").replace("|", "','") & "')")

 

 

 我试了一下，输入与离职人员表身份证号重复的人员，提示窗口没有打开。谢谢有点甜老师，麻烦您了。

[此贴子已经被作者于2018/11/30 18:38:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
tkxffb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1665 威望：0 精华：0 注册：2018/4/22 18:54:00 		  发帖心情 Post By：2018/11/30 18:40:00 [只看该作者]

是不是可以不用GetComboListString，改用其他方法？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/30 18:49:00 [只看该作者]

'-----以下是从在职人员表查找身份证号重复的行
Dim drs As List(of DataRow) =  DataTables("在职人员信息表").Select("", "身份证号")
For i As Integer = drs.count - 1 To 1 Step - 1
    If drs(i)("身份证号") = drs(i-1)("身份证号") Then     
    Forms("重复录入提示窗口之一").open
    End If
Next

'-----以下是从离职人员表查找身份证号重复的行
Dim drs As List(of DataRow) =  DataTables("在职人员信息表").Select("身份证号 in ('" & DataTables("离职人员信息表").GetComboListString("身份证号").replace("|", "','") & "')")
For i As Integer = drs.count - 1 To 1 Step - 1
    Forms("重复录入提示窗口之二").open
Next
 回到顶部
帅哥哟，离线，有人找我吗？
tkxffb
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1665 威望：0 精华：0 注册：2018/4/22 18:54:00 		  发帖心情 Post By：2018/12/1 10:20:00 [只看该作者]

感谢老师在线指导。上面的代码第二部分经测试仍然不可用，捣鼓半天，改成下面的这样，也算达到目的了

'---以下是使用Filter筛选法,在离职人员表筛选该人员,若筛选出,则给出提示
Dim Filter As String
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        Filter = Filter & "身份证号 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("离职人员信息表").Filter = Filter
End If

Dim t As Table = Tables("离职人员信息表")
If t.rows.count = 0 Then    '----如果行数等于0
    '---无代码,即不执行任何动作
Else   '---否则
    Forms("在职人员录入时与离职人员重复提示窗口").open
End If

窗口关闭时执行一下：Tables("离职人员信息表").Filter = ""   

不知道这段代码会不会对其他部分造成干扰，试用之后看效果吧
[此贴子已经被作者于2018/12/1 10:20:40编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询