Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 副本 表 单元格允许编辑命令


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

主题：[求助] 副本 表 单元格允许编辑命令
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/17 16:53:00 [显示全部帖子]

不写e.Cancel = True，就不会限制编辑。
 
If e.Col.Name = "业务序号" Then
    If e.Table.Name <> "窗口1_Table1" Then
        e.Cancel = true
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/12/17 16:54:00 [显示全部帖子]

If e.Col.Name = "业务序号" Then
    If e.Table.Name <> "窗口1_Table1" Then
        e.Cancel = true
    End If
Else
    e.Cancel = true
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/12 10:47:00 [显示全部帖子]

打开一个空白项目，然后按住ctrl不放打开，看是否也同样无法进入系统。

 

如果按住ctrl可以打开，说明你程序代码有问题；

 

如果不能打开，那报什么错（按住ctrl的情况下）？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/1 17:29:00 [显示全部帖子]

Dim cr As Row = Tables("表A").Current
If cr IsNot Nothing AndAlso cr.DataRow.RowState <> DataRowState.Unchanged Then
    msgbox("不能新增")
    e.cancel = True
End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/2 15:01:00 [显示全部帖子]

Dim r As Row = Tables("表A").current

If r.DataRow.OriginalValue("第一列")<> r("第一列")  Then
    If r.DataRow.OriginalValue("第二列")= r("第二列")  Then
        MessageBox.Show("【客户地址】和【客户ID】必须同时进行更改!!!")
    Else
       
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询