主题：窗口禁止输入重复值的实现问题

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

点击浏览该文件:管理项目3.table

 

你不是绑定了吗？你绑定了表列，那就直接在datacolchanged事件处理最为方便。

 

 

去看datacolchanged事件的代码，目前是根据两个列查询，你改成一个列的即可。

Select Case e.DataCol.name
    Case "基本资料_单位名称"
        Dim fdr As DataRow = e.DataTable.find("基本资料_单位名称 = '" & e.DataRow("基本资料_单位名称") & "' And _Identify <> " & e.DataRow("_Identify"))
        If fdr IsNot Nothing Then
            msgbox("已存在此单位数据")
            e.DataRow("产品") = fdr("产品")
            e.DataRow("型号") = fdr("型号")
            e.DataRow("数量") = fdr("数量")
        End If
        If e.DataRow("产品") = "电脑" Then
            e.DataRow("单位")="台"
        End If
End Select

或者，你可以用【列标题】处理多层表头

 

http://www.foxtable.com/webhelp/scr/0018.htm