以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助代码怎么修改。。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83028)

--  作者:北冰洋
--  发布时间:2016/3/29 22:13:00
--  求助代码怎么修改。。
If e.Col.Name = "某列" Then  \'如果编辑的是某列
    If e.Row.IsNull("某列") = False Then \'而且某列已经有内容
       e.Cancel = True \'则取消编辑
    End
If

End
If

这个要是有两列或者三列应该怎么修改呢 谢谢

--  作者:大红袍
--  发布时间:2016/3/29 22:53:00
--  
If e.Col.Name = "第一列" Then  \'如果编辑的是某列
    If e.Row.IsNull("第二列") = False AndAlso e.Row.IsNull("第三列") = False Then \'而且某列已经有内容
       e.Cancel = True \'则取消编辑
    End If
End If

--  作者:大红袍
--  发布时间:2016/3/29 22:54:00
--  
If e.Col.Name = "第一列" OrElse e.Col.Name = "第四列" Then  \'如果编辑的是某列
    If e.Row.IsNull("第二列") = False Then \'而且某列已经有内容
       e.Cancel = True \'则取消编辑
    End If
End If

--  作者:北冰洋
--  发布时间:2016/3/30 11:48:00
--  
老师好 请问如果要是希望某一个表达到这个效果(整个表里所以的单元格都是空白可以填入,但是有数据后就不可以修改) 应该改成什么样子呢 谢谢
--  作者:大红袍
--  发布时间:2016/3/30 11:53:00
--  

If e.Row.IsNull(e.Col.Name) = False Then

    e.Cancel = true

End If


--  作者:北冰洋
--  发布时间:2016/3/30 12:00:00
--  
谢谢谢谢 你们这么好 越来越依赖了可怎么办…
--  作者:北冰洋
--  发布时间:2016/4/17 15:33:00
--  
老师 假如要是有一列是逻辑列 那么逻辑列就直接不能编辑了 怎么办
--  作者:大红袍
--  发布时间:2016/4/17 23:47:00
--  
以下是引用北冰洋在2016/4/17 15:33:00的发言:
老师 假如要是有一列是逻辑列 那么逻辑列就直接不能编辑了 怎么办

 

那你就不要限制

 

If e.Col.Name <> "某逻辑列" Then

   

End If


--  作者:北冰洋
--  发布时间:2016/4/26 10:48:00
--  
请问老师 在窗口中怎么实现这个效果啊  就是 空白的话可以输入,有数据的话就禁止编辑
--  作者:大红袍
--  发布时间:2016/4/26 10:50:00
--  

Enter事件

 

If e.sender.text > "" Then
    e.sender.ReadOnly = BooleanEnum.True
Else
    e.Sender.ReadOnly = BooleanEnum.false
End If