' ******************************************************
' カラムを編集不可にする
' ******************************************************
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

' ******************************************************
' カラムを編集可能にする
' ******************************************************
Public Sub EnableColumnEdit(ByVal nIndex As Integer)

	Me.Columns(nIndex).ReadOnly = False

End Sub
Public Sub EnableColumnEdit(ByVal strName As String)

	Me.Columns(strName).ReadOnly = False

End Sub