以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  锁定列于解锁  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79141)
--  作者：文道古月
--  发布时间：2015/12/24 22:29:00
--  锁定列于解锁

老师，这个代码怎么改呢？

 

For Each dc As DataCol In DataTables("过账预览").DataCols()
    dc.AllowEdit = False
    dc("移动数量").AllowEdit = True
Next
--  作者：大红袍
--  发布时间：2015/12/24 23:34:00
--  
For Each dc As DataCol In DataTables("过账预览").DataCols()
    If dc.name <> "移动数量"
        dc.AllowEdit = False
    Else
        dc.AllowEdit = True
    End If
Next
--  作者：文道古月
--  发布时间：2015/12/24 23:42:00
--  
谢谢