以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表的同一行的两列，内容不允许完全一样代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80749)
--  作者：ZHX88863808
--  发布时间：2016/1/31 10:53:00
--  [求助]表的同一行的两列，内容不允许完全一样代码
在表中，有A列和B列，在同一行A列输入一个内容，在B列输入的内容不允许和A列完全一样，如A列输入ABC,则在B列不允许输入ABC，但可以输入ABD,请老师前辈写个代码，谢谢！
--  作者：大红袍
--  发布时间：2016/1/31 10:56:00
--  

DataColChanging事件

 

If e.DataCol.Name = "B列" AndAlso e.newvalue <> Nothing Then
   
    Dim fdr As DataRow = e.DataTable.Find("A列 = \'" & e.newValue & "\'")
    If fdr IsNot Nothing Then
        msgbox("不能重复")
        e.cancel = True
    End If
End If
--  作者：ZHX88863808
--  发布时间：2016/1/31 11:09:00
--  
老师：上面这个代码如果在第一行:A列输入ABC.B列输入ABD,如果在第二行：在A列输入ABD,则在B列就不可以输入ABC.我希望在同一行的两列内容不能一样，但同一列中的内容可以有相同的，还望老师再帮忙修改一下，谢谢！
--  作者：大红袍
--  发布时间：2016/1/31 11:10:00
--  
If e.DataCol.Name = "B列" AndAlso e.newvalue <> Nothing Then
    If e.DataRow("第一列") = e.NewValue Then
        msgbox("不能重复")
        e.cancel = True
    End If
End If
--  作者：ZHX88863808
--  发布时间：2016/1/31 11:33:00
--  

谢谢老师！