[求助]粘贴问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]粘贴问题

共有1770人关注过本帖树形打印复制链接主题：[求助]粘贴问题

积水成渊

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2805 威望：0 精华：0 注册：2016/8/24 10:39:00

[求助]粘贴问题 发帖心情

Post By：2017/11/23 9:37:00 [只看该作者]

现在有个表A：字段有项目，序号等，现在客户提出这样的需求，当字段序号的内容为1时，字段项目对应的行禁止粘贴，这个需求的代码怎么编写
图片点击可在新窗口打开查看

此主题相关图片如下：j9w5uq2ztf$6v}6s(kr(~dg.png

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/23 9:52:00 [只看该作者]

startEdit事件

If e.Col.name = "第一列" AndAlso e.Row("第二列") = "1" Then
    If vars("粘贴") = True Then
        e.cancel = True
    End If
End If

keyDow事件

If e.keycode = keys.V AndAlso e.control = True Then
vars("粘贴") = True
End If

keyUp事件

vars("粘贴") = False

积水成渊

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2805 威望：0 精华：0 注册：2016/8/24 10:39:00

Post By：2017/11/23 11:09:00 [只看该作者]

老师，为什么我把表事件换成全局事件，代码的功能就失效了呢：

全局事件代码：StartEdit

Select Case e.Table.DataTable.Name
Case "啊啊"
If e.Col.name = "第一列" AndAlso e.Row("第二列") = "1" Then
If vars("粘贴") = True Then
e.cancel = True
End If
End If
End Select
全局事件代码：KeyDown
Select Case e.Table.DataTable.Name
Case "啊啊"
If e.keycode = keys.V AndAlso e.control = True Then
vars("粘贴") = True
End If
End Select
全局事件代码：KeyUp
Select Case e.Table.DataTable.Name
Case "啊啊"
vars("粘贴") = False
End Select

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/23 11:16:00 [只看该作者]

全局表事件，你要开启的，比如

For Each dt As DataTable In DataTables
    dt.GlobalHandler.StartEdit = True
    dt.GlobalHandler.KeyDown = True
    dt.GlobalHandler.KeyUp = True
Next

积水成渊

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2805 威望：0 精华：0 注册：2016/8/24 10:39:00

Post By：2017/11/23 11:33:00 [只看该作者]

感谢老师

下一主题 >> << 上一主题

主题：[求助]粘贴问题