' ******************************************************
' 行フラグが一致する行があるかどうか
' ******************************************************
Public Function IsRowFlg(ByVal flg As Integer) As Boolean
IsRowFlg = False
Me.nCurrentRow = -1
Do While (Me.FindNextRow())
If Me.GetRowFlg() = flg Then
IsRowFlg = True
Exit Do
End If
Loop
End Function
|