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

两个窗口使用的是同样的代码，得到的效果不同！！！
单位基本信息录入表中的“删除数据”窗口，使用的和人事工资表中的“查询”窗口代码一样！！！
但是勾选复选框时，全不单位名称都显示出了！！！而不是只显示我勾选的单位！
此主题相关图片如下：未命名.jpg

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

点击浏览该文件:rsgzglxt.rar

斑竹
帮忙，看看

if e.table.Current.Checked = True Then
    Forms("删除数据").Controls("输入单位名称").Value = e.Table.Current("单位名称")
    Forms("删除数据").Controls("输入单位地址").Value = e.Table.Current("单位地址")
    e.table.Current.Checked = True
End If
for i as integer = 0 to tables("单位基本信息录入").count-1
    if tables("单位基本信息录入").rows(i)("单位名称") = Tables("删除数据_Table1").current("单位名称") then
        tables("单位基本信息录入").position = i
        exit for
    end if
next

if e.table.Current.Checked = True Then
    Forms("数据查询窗口").Controls("输入查询姓名").Value = e.Table.Current("姓名")
    Forms("数据查询窗口").Controls("身份证号").Value = e.Table.Current("身份证号")
    e.table.Current.Checked = True
End If
for i as integer = 0 to tables("人事工资管理").count-1
    if tables("人事工资管理").rows(i)("姓名") = Tables("数据查询窗口_Table1").current("姓名") then
        tables("人事工资管理").position = i
        exit for
    end if
next

在勾选复选框后的事件中，这两段代码没什么差别噻

是咋回事？

是咋回事？

 

Dim BB As  String

BB = Forms("删除数据").Controls("输入单位地址").text

If BB <> "" Then

    Tables("删除数据_Table1").DataSource = DataTables("单位基本信息录入")   

    Tables("删除数据_Table1").SetColVisibleWidth("单位名称|120|单位地址|160|单位负责人|100")

    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

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

这两段代码没什么区别噻

有什么办法处理没，因为身份证号和单位地址极有可能重复！！！

如果有重复如何让他只显示一行