以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口表选择性编辑  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88188)

--  作者:yifan3429
--  发布时间:2016/7/28 14:58:00
--  窗口表选择性编辑
窗口内的 Table1  设计了禁止编辑  我想如果是列 数量 可以编辑   如何 编写代码
--  作者:cbt
--  发布时间:2016/7/28 15:32:00
--  
\'全局表事件 AfterSelChange

Dim c As Col  = e.Table.cols(e.NewRange.ColSel)
If c.Name = "数量" Then
    Tables("窗口1_Table1").AllowEdit= True
Else
    Tables("窗口1_Table1").AllowEdit=False
End If


\'命令窗口执行  全局事件生效
DataTables("窗口1_Table1").GlobalHandler.AfterSelChange = true


--  作者:Hyphen
--  发布时间:2016/7/28 16:02:00
--  
不要设置AllowEdit属性,改为PrepareEdit写代码

If e.Col.Name <> "数量" Then
    e.Cancel = True
End
 
If