以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于数据重复的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104173)
--  作者：sgkyzfh
--  发布时间：2017/7/24 20:12:00
--  关于数据重复的问题
有一个表A  表A有5列，分别为：A、B、C、D、E列。要求：当E列当前行数据为空时，A、B、C、D列的当前数据不能与表中已经保存的数据重复
列名 A B C D E
表A里已经存有的数据 44 55 66 98 FALSE
当前数据 44 55 66 98 FALSE
当出现上述重复录入时，要求给出提示，数据重复即将删除。随后删除当前数据。
反之：当E列当前行数据为不空时，A、B、C、D列的当前数据可以与表中原有的数据重复并保存
列名 A B C D E
表A里已经存有的数据 44 55 66 98 TRUE
当前数据 44 55 66 98 FALSE


谢谢老师，耐心指导
--  作者：有点蓝
--  发布时间：2017/7/24 21:27:00
--  
DataColChanging事件

Select Case e.DataCol.Name
    Case "第一列","第二列","第三列","第四列"
        If e.DataRow.IsNull("第五列")  Then
            Dim arr() As String = {"第一列","第二列","第三列","第四列"}
            Dim filter As String = "1=1 "
            For Each cl As String In arr
                If cl = e.DataCol.Name Then
                    filter &= " and " & cl & " = \'" & e.NewValue & "\'"
                Else
                    filter &= " and " & cl & " = \'" & e.DataRow(cl) & "\'"
                End If
            Next
            If e.DataTable.Find(filter) IsNot Nothing Then 
                msgbox("重复")
                e.DataRow.Delete
            End If
        End If
End Select
--  作者：sgkyzfh
--  发布时间：2017/7/24 21:43:00
--  
给老师点赞，真佩服您
--  作者：sgkyzfh
--  发布时间：2017/7/26 21:22:00
--  
老师我测过了，当第5列不为空时不能保存。

      我的意思是这样的，我要在表中录入一行数据，有A、B、C、D、E、F六列，其中F列为逻辑列默认为假，当数据录入完毕后，要把当前数据的A、B、D、E列数据与表中的其他行数据比对，如果有相同的数据行，则判断第F列数据，如果仅有当前的F列均为假时，则允许保存当前录入数据，如有那怕有一个原有数据的F列为假时，则不允许保存当前行数据。且要删除当前行数据。

老师我是新手，有些程序看不太懂，最好给点注释。谢谢老师。

      
--  作者：有点甜
--  发布时间：2017/7/26 22:19:00
--  

beforesavedatarow事件

 

If e.DataRow("第五列") = False Then
    Dim arr() As String = {"第一列","第二列","第三列","第四列"}
    Dim s1 As String = ""
    Dim s2 As String = ""
    For Each cl As String In arr
        s1 = s1 & cl & "+\'|\'+"
        s2 = s2 & e.DataRow(cl) & "|"
    Next
    Dim filter As String  = s1.trim("+") & " = \'" & s2 & "\' and 第五列 = false"
    If e.DataTable.compute("count(_Identify)", filter) > 1 Then
        msgbox("重复")
        \'e.DataRow.Delete
        e.cancel = True
    End If
End If
--  作者：sgkyzfh
--  发布时间：2017/7/26 23:01:00
--  
老师经测试不成立，您在给看看吧。
--  作者：sgkyzfh
--  发布时间：2017/7/26 23:05:00
--  
甜老师给的程序测试完毕后只是在用菜单保存的时候，显示“重复字样”然后也不能删除当前行。我要的是录入的过程中，只要光标离开第四行，就进行判断
--  作者：有点甜
--  发布时间：2017/7/26 23:22:00
--  

DataColChanged

 

Select Case e.DataCol.Name
    Case "第一列","第二列","第三列","第四列","第五列"
        If e.DataRow("第五列") = False Then
            Dim arr() As String = {"第一列","第二列","第三列","第四列"}
            Dim s1 As String = ""
            Dim s2 As String = ""
            For Each cl As String In arr
                If e.DataRow.IsNull(cl) = True Then
                    s1 = ""
                    Exit For
                End If
                s1 = s1 & cl & "+\'|\'+"
                s2 = s2 & e.DataRow(cl) & "|"
            Next
            If s1 > "" Then
                Dim filter As String  = s1.trim("+") & " = \'" & s2 & "\' and 第五列 = false"
                If e.DataTable.compute("count(_Identify)", filter) > 1 Then
                    msgbox("重复")
                    \'e.DataRow.Delete
                    e.cancel = True
                End If
            End If
        End If
End Select
--  作者：sgkyzfh
--  发布时间：2017/7/29 10:44:00
--  
测试成功，感谢老师