以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  禁止相同行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46167)
--  作者：qianqian1530
--  发布时间：2014/2/18 11:25:00
--  禁止相同行
如何禁止相同行


每个行都不一样。?
--  作者：Bin
--  发布时间：2014/2/18 11:28:00
--  
在DataColChangeing事件,利用FINd查找是否有相同的行. http://www.foxtable.com/help/topics/0396.htm
--  作者：lsy
--  发布时间：2014/2/18 12:04:00
--  

DataColChanged

在列数很多的时候，FIND的条件写出来比较长。

For Each dr As DataRow In e.DataTable.DataRows
    Dim s As String = ""
    Dim s1 As String = ""
    For Each dc As DataCol In e.DataTable.DataCols
        s + = e.DataRow(dc.Name)
        s1 + = dr(dc.Name)
    Next
    If dr("_Identify") <> e.DataRow("_Identify") AndAlso s = s1 Then
        MessageBox.Show("记录重复")
        Exit For
    End If
Next