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

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

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

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:rsgzglxt.rar

如何实现，帮帮忙

反过来，先输入一部分身份证号位数，在输入姓名的某些部分如何实现

还有就是身份证输入框和姓名输入框为空时间，下面的过滤表也要为空

 Tables("数据查询窗口_Table1").Filter = ""
这段代码没有实现得到

老大急用，帮帮忙

 

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

这样实现的

 

有更好的办法没有