如何在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

可以通过设置"行"one_answers"列"属性来指定列。在本例中，我将为所有行锁定列1。根据您的需要调整这些属性。