以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教行不允许输入重复值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73543)
--  作者：hbhb
--  发布时间：2015/8/21 9:52:00
--  请教行不允许输入重复值
大师好！请问如何控制某行不允许输入重复值。应在哪个事件写，下面的代码写在ValidateEdit事件，不行，错在哪了？或者应该怎么写？写在哪个事件中？
\'Dim jh As new List(of String)
\'jh.Clear
\'For Each cl As  Col In e.Table.Cols
    \'If e.Row.Index = 1 Then
        \'If jh.Contains(e.Row(cl.Name)) = False Then
            \'jh.Add(e.Row(cl.Name))
        \'End If
    \'End If
\'Next
\'If jh.Count >= 2 Then
\'MessageBox.Show("不能重复")
    \'Return
\'End If
--  作者：大红袍
--  发布时间：2015/8/21 10:05:00
--  
If e.Row.Index = 1 Then
    Dim count As Integer = 0
    For Each cl As  Col In e.Table.Cols
        If cl.name <> e.Col.Name Then
            If e.Row(cl.Name) = e.Text Then
                count += 1
            End If
           
        End If
    Next
    If  count >= 1 Then
        MessageBox.Show("不能重复")
        e.cancel = True
    End If
End If
--  作者：hbhb
--  发布时间：2015/8/21 10:34:00
--  
谢谢!写在哪个事件中？

请问我的逻辑错在哪里？
--  作者：Hyphen
--  发布时间：2015/8/21 10:40:00
--  

DataColChanging事件

 

没有 e.cancel = True，不会撤销录入
--  作者：大红袍
--  发布时间：2015/8/21 11:04:00
--  
以下是引用hbhb在2015/8/21 10:34:00的发言：
谢谢!写在哪个事件中？

请问我的逻辑错在哪里？

 

ValidateEdit 事件。

 

如果写在DataColChanging事件，代码对应的改一下
--  作者：hbhb
--  发布时间：2015/8/21 11:12:00
--  
为何输入空值不提示，如何改动？
--  作者：hbhb
--  发布时间：2015/8/21 11:17:00
--  
如何输入空值不提示，如何改动？
--  作者：大红袍
--  发布时间：2015/8/21 11:48:00
--  

呃，你有进步过吗？

 

If e.Row.Index = 1 AndAlso e.text > "" Then
    Dim count As Integer = 0
    For Each cl As  Col In e.Table.Cols
        If cl.name <> e.Col.Name Then
            If e.Row(cl.Name) = e.Text Then
                count += 1
            End If
           
        End If
    Next
    If  count >= 1 Then
        MessageBox.Show("不能重复")
        e.cancel = True
    End If
End If