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

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

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

身份证号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

姓名的事件就不用再写了吧？

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

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

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

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

这一行代码在打开窗口时已经指定了显示列及宽度，这里也根本就不需要它的存在。