' ******************************************************
' カラムを表示・非表示
' ******************************************************
Public Sub SetColumnVisible(ByVal strName As String, ByVal bFlg As Boolean)

	Me.Columns(strName).Visible = bFlg

End Sub
Public Sub SetColumnVisible(ByVal nCol As Integer, ByVal bFlg As Boolean)

	Me.Columns(nCol).Visible = bFlg

End Sub