主题：[求助]逻辑列单数行不允许编辑要怎么写代码

 呃....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 ，我这样写对啊，怎么单击有时还可以选择呢，奇怪

列名必须写对

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

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