以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]逻辑列单数行不允许编辑要怎么写代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58275)
--  作者：建筑人生
--  发布时间：2014/10/14 19:06:00
--  [求助]逻辑列单数行不允许编辑要怎么写代码
狐表 逻辑列 单数行 不允许编辑要怎么写代码
--  作者：有点甜
--  发布时间：2014/10/14 19:08:00
--  

 呃....prepareEdit加入代码

 

If e.Col.Name = "逻辑列" Andalso e.Row.Index Mod 2 = 1 Then e.Cancel = true
--  作者：建筑人生
--  发布时间：2014/10/14 19:15:00
--  
以下是引用有点甜在2014-10-14 19:08:00的发言：

 呃....prepareEdit加入代码

 

If e.Col.Name = "逻辑列" Andalso e.Row.Index Mod 2 = 1 Then e.Cancel = true

Select e.Col.name
        Case "土方_埋地","管道油漆特征_除锈"

        Dim r As Long = Tables("水卫工程量").Current.Index
        If r Mod 2 = 0 Then
            e.Cancel=True           
        End If
End Select ，我这样写对啊，怎么单击有时还可以选择呢，奇怪

 

[此贴子已经被作者于2014-10-14 19:15:57编辑过]
--  作者：有点甜
--  发布时间：2014/10/14 19:17:00
--  

列名必须写对

 

Select e.Col.name
    Case "土方_埋地","管道油漆特征_除锈","土方_埋地"
        If e.Row.Index Mod 2 = 0 Then
            e.Cancel=True
        End If
End Select
--  作者：建筑人生
--  发布时间：2014/10/14 19:21:00
--  
以下是引用有点甜在2014-10-14 19:17:00的发言：

列名必须写对

 

Select e.Col.name
    Case "土方_埋地","管道油漆特征_除锈"
        If e.Row.Index Mod 2 = 0 Then
            e.Cancel=True
        End If
End Select

有写对啊，双击都没有问题，就是单击有时还是可以选择

 

[此贴子已经被作者于2014-10-14 19:25:30编辑过]
--  作者：有点甜
--  发布时间：2014/10/14 19:53:00
--  
 例子发上来，不可能。