' ******************************************************
' 行ヘッダ取得
' ******************************************************
Public Function GetRowHeadetText(ByVal nRow As Integer) As String

	Return Me.Rows(nRow).HeaderCell.Value

End Function
Public Function GetRowHeadetText() As String

	Return Me.Rows(nCurrentRow).HeaderCell.Value

End Function