rt

解决方案 »

  1.   

    Private Sub vsflexgrid1_BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
        If Col = 1 Then Cancel = True  '将第一列设为不可编辑
    End Sub
      

  2.   

    sorry~,上面应该是将第2列设为不可编辑
      

  3.   

    同意 yoki(小马哥) 
      

  4.   

    没有属性可以控制单独列,yoki(小马哥)的方法是正确的。
      

  5.   

    Private Sub vsFlexGrid_RowColChange()
        if vsflexgrid.col=1 then
             vsflexgrid.editable=false
        else
             vsflexgrid.editable=true
        endif
    end sub