' ******************************************************
' カラムを非表示にする
' ******************************************************
Public Sub HideColumn(ByVal nIndex As Integer)

	Me.Columns(nIndex).Visible = False

End Sub
Public Sub HideColumn(ByVal strName As String)

	Me.Columns(strName).Visible = False

End Sub