' ******************************************************
' 行フラグ設定
' ******************************************************
Public Sub SetRowFlg(ByVal flg As Integer)

	CType(Me.Rows(nCurrentRow), lightbox.LboxGridRow).rowType = flg

End Sub
Public Sub SetRowFlg(ByVal nIndex As Integer, ByVal flg As Integer)

	CType(Me.Rows(nIndex), lightbox.LboxGridRow).rowType = flg

End Sub