如何实现在姓名查询的结果上，再根据身份证进一步查询！！！谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现在姓名查询的结果上，再根据身份证进一步查询！！！谢谢

共有14994人关注过本帖树形打印复制链接主题：如何实现在姓名查询的结果上，再根据身份证进一步查询！！！谢谢

雨中的泪

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

如何实现在姓名查询的结果上，再根据身份证进一步查询！！！谢谢 发帖心情

Post By：2010/6/7 21:28:00 [只看该作者]

如何实现在姓名查询的结果上，再根据身份证进一步查询！！

1、在<姓名>中输入“关”在下面的窗口中显示所有姓“关”的人员；

2、接着在<身份证号>中输入“5”这时显示的是所有身份证号第一位为“5”的人员，想实现的是只显示所有姓“关”的身份证号第一位为“5”的人员！！！

3、继续在<身份证号>中继续输入以下的数字，这时继续过滤出相应的姓“关”的身份证号满足条件的人员！！！

此主题相关图片如下：1.jpg

雨中的泪

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2010/6/7 21:30:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:rsgzglxt.rar

jxkqf

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00

Post By：2010/6/7 22:04:00 [只看该作者]

仁兄和我是一个系统的，一定是财政局工资科的。

但我刚学，恕不能回答。

czy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/6/7 22:12:00 [只看该作者]

说老实话，看楼主的代码总觉得很累。

Dim str As String
if e.Form.Controls("输入查询姓名").Value <> "" Then
    str = "([姓名] Like '*" & e.Form.Controls("输入查询姓名").Value & "*') And "
End If
If e.Sender.Text <> "" Then
    Tables("数据查询窗口_Table1").Filter = str & "[身份证号] Like '*" & e.Sender.Text & "*'"
else
    Tables("数据查询窗口_Table1").Filter = ""
    e.Sender.Value = ""
end if