如何使特定列在 vb6 中可编辑

Question

当你点击一个单元格时，我有这个事件，它会检查它被点击的是哪一列（枚举），然后如果列应该是可编辑的，它就会启用编辑。

以下列应该是可编辑的并且工作正常，但在 else 语句中我希望这些列不可编辑。

我用的是高亮显示的（Farpoint Spread 6.0 (OLEDB)，我是手动加载的

这是我的代码，它不会为我禁用编辑功能。有什么想法吗？

Select Case Col
        
        Case gcQtyDelivered, gcQtyFOC, gcQtyDelivered, gcCostPrice, gcRetailprice
            With lstTheLines
                .Row = Row
                .UserResizeCol = UserResizeOn
                .EditMode = True
                .Protect = False
            End With
        Case Else
            With lstTheLines
                .Row = Row
                '.Locked = True
                '.ReadOnly = True
                '.Enabled = False ' locks the full grid
                '.EditMode = False
                '.EditMode = False
                '.Col.ReadOnly = True
                .Enabled = True
                .Locked = False
                
            End With
            
End Select

Answer 1

这是我用来 Lock 整个专栏的代码块：

Sheet.BlockMode = True
Sheet.Row = 0
Sheet.Row2 = Sheet.MaxRows
Sheet.Col = 1
Sheet.Col2 = 1
Sheet.Lock = True
Sheet.BlockMode = False

您可以通过设置 Row 和 Col 属性来指定列。在此示例中，我锁定所有行的第 1 列。调整这些属性以满足您的需要。

如何使特定列在 vb6 中可编辑

how to make specific columns editable in vb6

vb6

farpoint-spread