[VB]

DataGridコントロールで、データの更新を確定する

[動作環境]

Microsoft Windows 2000 Server
Microsoft Vusual Basic 6.0

[概要]

DataGridコントロールでデータベースと連結し、グリッド上でデータを更新する際、カーソルを別の行に移さないと更新が確定されません。これを回避する為に、カーソル移動を強制的に行う処理です。

[手順]

更新を確定したいイベントプロシージャに下記のコードを記述してください。

Dim l_index As Integer

'現在アクティブな行番号を取得
l_index = Me.DataGrid1.Row

'行番号が0であれば、次の行にカーソルを移動させ、
'そうでなければ、0番目に移動させる。
If l_index = 0 Then
	Me.DataGrid1.Row = l_index + 1
Else
	Me.DataGrid1.Row = 0
End If