LboxGrid メソッド (1)


  FindNextRow、FindNextRowDirty



行フラグは、行毎に実装されているので、SetRowFlg と GetRowFlg を使用してアクセスする

  
' ******************************************************
' 行の取得
' ******************************************************
Public Function FindNextRow() As Boolean

	FindNextRow = True

	nCurrentRow += 1
	If nCurrentRow + 1 > Me.Rows.Count Then
		nCurrentRow = Me.Rows.Count - 1
		FindNextRow = False
	End If

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
  

サンプル
  
Me.LboxGrid1.SetCurrentRow()
Do While (Me.LboxGrid1.FindNextRow())

	MessageBox.Show(CType(Me.LboxGrid1.GetColumnValue("CHECK"), Boolean))

Loop
  


  
' ******************************************************
' 更新された行の取得
' ******************************************************
Public Function FindNextRowDirty() As Boolean

	FindNextRowDirty = False

	Do While (Me.FindNextRow())
		If Me.GetRowDirty() Then
			FindNextRowDirty = True
			Exit Do
		End If
	Loop

End Function
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ