' ******************************************************
' カレント行取得
' ******************************************************
Public Function GetCurrentRow() As Integer

	GetCurrentRow = nCurrentRow

End Function

Public Function GetCurrentRowIndex() As Integer

	Return Me.CurrentCell.RowIndex

End Function