' ******************************************************
' カラムを編集不可にする
' ******************************************************
Public Sub DisableColumnEdit(ByVal nIndex As Integer)
Me.Columns(nIndex).ReadOnly = True
End Sub
Public Sub DisableColumnEdit(ByVal strName As String)
Me.Columns(strName).ReadOnly = True
End Sub
|