vb6 - 如何在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 列。调整这些属性以满足您的需要。