以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  离开控件后执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54595)
--  作者：blackzhu
--  发布时间：2014/7/31 10:48:00
--  离开控件后执行
Dim r As Row = Tables("用户管理").Current
If r IsNot Nothing Then
    Dim dr As DataRow
    dr =DataTables("用户管理").Find("用户ID = \'" & r("用户ID") & "\'And 注册单位=\'" & _UserCompany & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("新输入的用户ID已经存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        r("用户ID")=""
    End If
End If


  我这个代码放在文本框的离开后执行的事件中,但是我输入任何字符都会出现这个提示,这个我就想不明白了. 文本框绑定的.
--  作者：blackzhu
--  发布时间：2014/7/31 10:58:00
--  
放在 datacolschanging 事件中 绑定控件 只要TAB键 切换控件 就会出现两次提示 这个很早前就发现了,所以我很少用这个事件.
--  作者：有点甜
--  发布时间：2014/7/31 11:02:00
--  

 不可能，代码放在leave事件里。

 

 你做个例子发上来
--  作者：blackzhu
--  发布时间：2014/7/31 11:07:00
--  
甜总  加了个主键列排除 就可以了