|
' ******************************************************
' 行フラグ設定
' ******************************************************
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
' ******************************************************
' 行フラグ取得
' ******************************************************
Public Function GetRowFlg() As Integer
GetRowFlg = CType(Me.Rows(nCurrentRow), lightbox.LboxGridRow).rowType
End Function
Public Function GetRowFlg(ByVal nIndex As Integer) As Integer
GetRowFlg = CType(Me.Rows(nIndex), lightbox.LboxGridRow).rowType
End Function
' ******************************************************
' 行フラグが一致する行の取得
' ******************************************************
Public Function FindNextRow(ByVal flg As Integer) As Boolean
FindNextRow = False
Do While (Me.FindNextRow())
If Me.GetRowFlg() = flg Then
FindNextRow = True
Exit Do
End If
Loop
End Function
| |