Foxtable(狐表) → 用户栏目 → 专家坐堂 → 检查重复的代码应该放在哪个事件合适?


  共有2177人关注过本帖树形打印复制链接

主题：检查重复的代码应该放在哪个事件合适?
帅哥哟，离线，有人找我吗？
happyft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		检查重复的代码应该放在哪个事件合适?  发帖心情 Post By：2018/10/24 12:03:00 [只看该作者]

在datacolchanged事件中用了如下代码:检查重复时清空
Dim dr As DataRow
Dim edr As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "部门编码"
        If edr.Isnull("部门编码") = False Then
            dr = e.DataTable.Find("部门编码 = '" & edr("部门编码") & "' And [_Identify] <> " & edr("_Identify"))
            If dr IsNot Nothing Then  '如果数据行已经存在
                MessageBox.Show("相同 部门编码 的值已经在当前表中,请输入不同的部门编码!")
                edr("部门编码") = Nothing
            End If
        End If
End Select
上面的代码每次手工录入部门编码时没什么问题,
但很多时候想从一个旧值中复制来用,比如从上一行的A00001复制到下一行粘贴修改为A00002但粘贴后事件就执行了自动清除了,还得重新全部输入 
如果想粘贴后不执行,要等粘贴过后修改完换了另外一个单元格才执行应该放在哪个事件比较合适?

谢谢!
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/24 12:06:00 [只看该作者]

你可以在keydown事件加一个标志 vars("粘贴") = true

 

keyup事件，写代码 vars("粘贴") = false
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2018/10/24 13:54:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：tim截图20181024134838.jpg
图片点击可在新窗口打开查看

没弄明白,意思是从上面的编码复制到下面单元格后再改成010802,,但datacolchanged事件粘贴时就会立即执行将粘贴内容清空了(因为重复),
也就是想在粘贴值时datacolchanged事件不执行,等人为更改内容后或切换到其他单元格或回车时才执行datacolchanged事件中的代码
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/24 14:54:00 [只看该作者]

认认真真看懂2楼。在datacolchanged事件判断 vars("粘贴") 的值

 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2018/10/24 15:18:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:禁止重复测试.foxdb


那样还是有问题,如果用户复制粘贴后不做任何操作,将鼠标移动到另外的单元格,此时就不提示重复了.
也就是粘贴时重复不提示,但是光标离开或回车时就要提示重复才行.
谢谢!
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/24 15:27:00 [只看该作者]

光标离开事件，参考

 

http://www.foxtable.com/webhelp/scr/0644.htm

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询