' ******************************************************
' ヘッダのテキスト取得
' ******************************************************
Public Function GetColumnHeaderText(ByVal strName As String) As String

	GetColumnHeaderText = Me.Columns(strName).HeaderText

End Function
Public Function GetColumnHeaderText(ByVal nIndex As Integer) As String

	GetColumnHeaderText = Me.Columns(nIndex).HeaderText

End Function