Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub UltraGrid1_AfterRowUpdate(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.RowEventArgs) Handles ultraGrid1.AfterRowUpdate
' 行が UltraGrid に更新された後に AfterRowUpdate を発生します
If TypeOf Me.ultraGrid1.DataSource Is DataSet Then
If e.Row.Band Is Me.ultraGrid1.DisplayLayout.Bands(0) Then
Dim drv As DataRowView = DirectCast(e.Row.ListObject, DataRowView)
Dim dr As DataRow = drv.Row
Debug.WriteLine("Row state of the data row sould be modified: " & dr.RowState.ToString())
End If
End If
End Sub