' ******************************************************
' 行をすべて削除
' ******************************************************
Public Sub Clear()

	Dim count As Integer = Me.Rows.Count
	Dim i As Integer

	For i = count - 1 To 0 Step -1
		Me.Rows.RemoveAt(i)
	Next

End Sub

' ******************************************************
' 行の編集済みフラグクリア
' ******************************************************
Public Sub ClearRowDirty()

	Dim count As Integer = Me.Rows.Count
	Dim i As Integer

	For i = count - 1 To 0 Step -1
		CType(Me.Rows(i), lightbox.LboxGridRow).rowDirty = False
	Next

End Sub