Imports Infragistics.WebUI.Shared Imports Infragistics.WebUI.WebSchedule ... ' 今日発生する予定を見つけ出すために、GetActivitiesForDate メソッド ' を使用します。 Me.WebScheduleInfo1.DataBind() Dim activities As ActivitiesSubsetCollection = _ Me.WebScheduleInfo1.GetActivitiesForDate(Me.WebScheduleInfo1.ActiveResource, _ New SmartDate(DateTime.Now)) Dim appointment As Appointment = CType(activities(0), Appointment) ' 繰り返しのルート アクティビティを取得します。 appointment = CType(appointment.Recurrence.RootActivity, Appointment) ' 更新している繰り返し予定。 appointment.Recurrence.MaxOccurrences = 5 ' データ プロバイダの UpdateActivity メソッドでデータベースを更新します。 Me.WebScheduleOleDbProvider1.UpdateActivity(appointment) ' Activities コレクションを更新するために、DataBind を再度呼び出す必要があります。 ' WebScheduleInfo は、一度呼び出した後では自動的に ' 呼び出しません。 Me.WebScheduleInfo1.DataBind()