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


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

主题：如何实现在姓名查询的结果上，再根据身份证进一步查询！！！谢谢
帅哥哟，离线，有人找我吗？
雨中的泪
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00 		  发帖心情 Post By：2010/6/8 21:01: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 = ""
Dim BB As  String

BB = Forms("数据查询窗口").Controls("输入查询姓名").text

If BB <> "" Then

    Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")   

    Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")

    with e.Form

        Dim dst As Table = Tables("人事工资管理")

        Dim txb1 As WinForm.TextBox = .Controls("输入查询姓名")

        Tables("数据查询窗口_Table1").Filter = "[姓名] Like '*" & txb1.text & "*'"

    end with

else

    With e.Form

        Tables("数据查询窗口_Table1").Filter = "_identify < 0"

Dim cmd As WinForm.TextBox = e.Form.Controls("身份证号")

cmd.value=""

   End With  

end if

    e.Sender.Value = ""

end if


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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 = ""

Dim BB As  String

BB = Forms("数据查询窗口").Controls("身份证号").text

If BB <> "" Then

    Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")   

    Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")

    with e.Form

        Dim dst As Table = Tables("人事工资管理")

        Dim txb1 As WinForm.TextBox = .Controls("身份证号")

        Tables("数据查询窗口_Table1").Filter = "[身份证号] Like '*" & txb1.text & "*'"

    end with

else

    With e.Form

        Tables("数据查询窗口_Table1").Filter = "_identify < 0"

Dim cmd As WinForm.TextBox = e.Form.Controls("输入查询姓名")

cmd.value=""

   End With  

end if
end if
 回到顶部
帅哥哟，离线，有人找我吗？
雨中的泪
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00 		  发帖心情 Post By：2010/6/8 21:02:00 [只看该作者]

这样实现的

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


加好友 发短信
等级：六尾狐 帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00 		  发帖心情 Post By：2010/6/8 21:02:00 [只看该作者]

有更好的办法没有

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


加好友 发短信
等级：六尾狐 帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00 		  发帖心情 Post By：2010/6/8 22:21: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
Dim BB As  String
BB = Forms("数据查询窗口").Controls("输入查询姓名").text
If BB <> "" Then
    Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")   
    Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")
    with e.Form
        Dim dst As Table = Tables("人事工资管理")
        Dim txb1 As WinForm.TextBox = .Controls("输入查询姓名")
        Tables("数据查询窗口_Table1").Filter = "[姓名] Like '*" & txb1.text & "*'"
    end with
else
Dim BBB As  String
BBB = Forms("数据查询窗口").Controls("身份证号").text
if BBB <> "" Then
Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")   
    Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")
with e.Form
        Dim dst As Table = Tables("人事工资管理")
        Dim txb1 As WinForm.TextBox = .Controls("身份证号")
        Tables("数据查询窗口_Table1").Filter = "[身份证号] Like '*" & txb1.text & "*'"
    end with
else
    With e.Form
        Tables("数据查询窗口_Table1").Filter = "_identify < 0"
   End With  
end if
end if
end if

 

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
Dim BB As  String
BB = Forms("数据查询窗口").Controls("身份证号").text
If BB <> "" Then
    Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")   
    Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")
    else
Dim BBB As  String
BBB = Forms("数据查询窗口").Controls("输入查询姓名").text
If BBB <> "" Then
    Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")   
    Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")
with e.Form
        Dim dst As Table = Tables("人事工资管理")
        Dim txb1 As WinForm.TextBox = .Controls("输入查询姓名")
        Tables("数据查询窗口_Table1").Filter = "[姓名] Like '*" & txb1.text & "*'"
    end with
else
    With e.Form
        Tables("数据查询窗口_Table1").Filter = "_identify < 0"
   End With  
end if
end if
end if

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


加好友 发短信
等级：六尾狐 帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00 		  发帖心情 Post By：2010/6/8 22:21:00 [只看该作者]

又做了这样的改进，就是代码太乱，不知道有没有更简单的办法，谢谢

 

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


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：2010/6/9 0:09:00 [只看该作者]

图片点击可在新窗口打开查看  恭喜楼主自己搞定啦，学习了。

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2010/6/9 0:39:00 [只看该作者]

身份证号TextChanged事件代码。

 

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

 

姓名的事件就不用再写了吧？
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2010/6/9 0:53:00 [只看该作者]

楼主啊，你的这些代码都是多余的，而且影响运行速度。

 

Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")

上一行代码根本没必要，理由：SQLQuery的Select语句已经决定了一切。


Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")

这一行代码在打开窗口时已经指定了显示列及宽度，这里也根本就不需要它的存在。
 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询