主题：两个窗口使用的是同样的代码，得到的效果不同！！！

你的单位基本信息录入表中的“删除数据”窗口文本框:输入单位地址 textchanged事件 中的代码就是这样要求的:::勾选复选框时，全部单位名称都(要求)显示出的啊！！！  你自己的代码要求达到什么目的连你自己都不知道吗??? 
建议楼主仔细看懂各个事件中代码的意思～～～  后再提问题！！ 很多事件中代码的结果相互重复、重叠、甚至相互矛盾。  阿门～～～

        Dim txb1 As WinForm.TextBox = .Controls("输入单位地址")

        Tables("删除数据_Table1").Filter = "[单位地址] Like '*" & txb1.text & "*'"

单位地址在你的表中是重复的！！！！！！！！！1

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

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

而身份证号好像没有重复的吧？？？？？？

不光要看代码，还要看你代码对应的数据内容》》》》 ～！

看看：：：地址不同时的情况：

此主题相关图片如下：qstn.gif

如果单位和姓名不会重复的话::::

Dim txb1 As WinForm.TextBox = .Controls("输入单位地址")         Tables("删除数据_Table1").Filter = "[单位地址] Like '*" & txb1.text & "*'"   '筛选条件再加上单位判断!         Dim txb1 As WinForm.TextBox = .Controls("身份证号")         Tables("数据查询窗口_Table1").Filter = "[身份证号] Like '*" & txb1.text & "*'"     '筛选条件再加上姓名判断!

 

1、姓名和身份证号不可能同时重复啊～  ，真的要有重复，只好请当事人到派出所去更正身份证号码了。
2、单位名称和地址也不应该同时出现重复，录入时要加以判断，真的发现有重复就应该在地址中加入房间号吗，同一座楼房间号不会重复的（真的重复了也只好找大楼所有者或物业来协调更正了），要不再加上座位号码。

呵呵～ ， 楼主你最后的问题，更本就不是什么问题的。祝你成功。