以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164904)

--  作者:bzqlyj
--  发布时间:2021/5/8 12:19:00
--  事件
在表事件DataColChanging中,有查找重复代码,

If e.DataCol.Name = "身份证号" Then
    Dim
dr As DataRow
    dr = e.
DataTable.Find("
身份证号 = \'" & e.NewValue & "\'")
   
If dr IsNot Nothing Then
        MessageBox.Show(
"此
身份证号已经存在!")

        e.Cancel = True
    End
If
End
If

如何将此事件的代码写入按钮事件click中去



--  作者:有点蓝
--  发布时间:2021/5/8 13:34:00
--  
dim r as row = tables("xx").current

    Dim dr As DataRow
    dr =
DataTables.Find("
身份证号 = \'" & r("身份证号") & "\' and _Identify <>" & r("_Identify"))

    If dr IsNot Nothing Then
        MessageBox.Show(
"此
身份证号已经存在!")

    End If


--  作者:bzqlyj
--  发布时间:2021/5/8 14:35:00
--  回复:(有点蓝)dim r as row = tables("xx").curren...
直接放入按钮click内,出现如图
图片点击可在新窗口打开查看此主题相关图片如下:kkkk.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/5/8 14:41:00
--  
dr = DataTables("某某表").Find("身份证号 = \'" & r("身份证号") & "\' and _Identify <>" & r("_Identify"))
--  作者:bzqlyj
--  发布时间:2021/5/10 8:48:00
--  回复:(有点蓝)dr = DataTables("某某表").Fin...
请问一下,如果在窗口的录入A列,通过A列的事件leava(离开控件后执行)来查重复,有重复时,则不离开此A列,如何实现
--  作者:有点蓝
--  发布时间:2021/5/10 8:51:00
--  
到控件Validating事件判断:http://www.foxtable.com/webhelp/topics/0736.htm
--  作者:bzqlyj
--  发布时间:2021/5/10 11:05:00
--  回复:(bzqlyj)回复:(有点蓝)dr = DataTabl...
但只要光标一停留在窗口A列的录入框内
--  作者:有点蓝
--  发布时间:2021/5/10 12:01:00
--  
是要在表格单元格里录入?还是在窗口文本框控件里录入?

如果是单元格,到表格BeforeSelChange事件处理:http://www.foxtable.com/webhelp/topics/0644.htm

--  作者:bzqlyj
--  发布时间:2021/5/10 13:20:00
--  回复:(有点蓝)是要在表格单元格里录入?还是在窗口...
还是在窗口文本框控件里录入?
--  作者:有点蓝
--  发布时间:2021/5/10 13:35:00
--  
那就不懂7楼表达什么意思了,Validating事件判断后使用e.cancel=true,光标就是在原输入框的