' 行が追加されると、次のローカルの自動番号を割り当てることができます。 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