以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  列锁定问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61443)

--  作者:lesliecheung912
--  发布时间:2014/12/12 12:55:00
--  列锁定问题
表A有四列(名称,种类,数量,件数),名称和种类从另一个表中取值,选择名称后种类自动取过来。
当种类 = “水果”时,数量列锁定,件数列解锁,当种类等于其他值时,数量列解锁,件数列锁定。
请问代码应该写在什么事件里,代码应该怎么写呢?

--  作者:Bin
--  发布时间:2014/12/12 14:05:00
--  
在DataColChanged事件和 PrepareEdit 控制

参考




--  作者:lesliecheung912
--  发布时间:2014/12/12 14:46:00
--  
从另外一个表取值可以做到,但是锁定列怎么可以做到啊。如果是在PrepareEdit事件里面写,那得怎么写?
这样不行啊
If e.Col.Name = "产品名称" Then
    If Tables("表A").Current("种类") <> "水果"
        Tables("表A").Cols("数量").AllowEdit = False
        Tables("表A").Cols("数量").AllowEdit = True
    Else
        Tables("表A").Cols("数量").allowedit = True
        Tables("表A").Cols("件数").allowedit = False
    End If
End If

--  作者:Bin
--  发布时间:2014/12/12 14:47:00
--  
你都没有参考帮助按照帮助的去做.

用的是e.cancel=true 

请您先看一下2楼帮助哦

--  作者:lesliecheung912
--  发布时间:2014/12/12 15:02:00
--  
想了半天还是没想明白,劳烦BIN大哥指点迷津
--  作者:有点甜
--  发布时间:2014/12/12 15:05:00
--  

PrepareEdit 事件

 

 If e.Col.Name = "数量" Then

     If e.Row("种类") = "水果" Then e.Cancel = True

 End If

 

 If e.Col.Name = "件数" Then

     If e.Row("种类") <> "水果" Then e.Cancel = True

 End If


--  作者:lesliecheung912
--  发布时间:2014/12/12 15:14:00
--  
我是想锁定列,而不是禁止他编辑,而是给列加个小锁,这样更形象,请问在表事件可以完成这种操作吗?


--  作者:Bin
--  发布时间:2014/12/12 15:19:00
--  
这是不科学的,你这是根据当前行来判断的, 你把整列都锁定了, 那其他行符合条件的怎么办? 自相锚定的需求

只有禁止编辑才合理,  如果希望有标识,可以利用DrawCell事件

--  作者:lesliecheung912
--  发布时间:2014/12/12 15:24:00
--  
明白了,谢谢