' 行が追加されると、次のローカルの自動番号を割り当てることができます。
Protected Overrides Sub OnRowAdded(ByVal e As Infragistics.Win.UltraWinDataSource.RowAddedEventArgs)
MyBase.OnRowAdded(e)
e.Row.Band.Columns("CategoryID").ReadOnly = DefaultableBoolean.False
e.Row.Item("CategoryID") = Me.NextAutoNumber
e.Row.Band.Columns("CategoryID").ReadOnly = DefaultableBoolean.True
End Sub