以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  两列数据 重复值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83150)
--  作者：caibu34007
--  发布时间：2016/4/1 15:44:00
--  两列数据 重复值
 求高手帮忙
怎么设置 两列数据 增加行  如果有两列数据都相同 执行错误提示
例如  签到  A  4.1 9:00 签到  
    如果再出现  A 4.1 10：00签到  弹出 框

怎么设置 列属性 
--  作者：大红袍
--  发布时间：2016/4/1 15:50:00
--  

DataColChanged事件

 

Select Case e.DataCol.name
    Case "第一列", "第二列"
        Dim str As String = e.DataRow("第一列") & "|" & e.DataRow("第二列")
        Dim count As Integer = e.DataTable.Compute("count(_Identify)", "第一列 + \'|\' + 第二列 = \'" & str & "\'")
        If count > 1 Then
            msgbox("重复了")
            systemready = False
            e.DataRow(e.DataCol.name) = e.DataRow.OriginalValue(e.DataCol.name)
            systemready = True
        End If
End Select