dim oResourceObject as DevExpress.XtraScheduler.Resource ' Get a dataview with all the records Dim goResources As DataView = GetDataViewObject.GetDataView(cSQL) Dim drv2 As DataRowView For Each drv2 In goMeetProc oResourceObject = New DevExpress.XtraScheduler.Resource oResourceObject.Caption = drv2("ResourceName") oResourceStartTime = drv2("ResourceStartTime") Next~~Bonnie
> Dim myResource1 As New DevExpress.XtraScheduler.Resource > myResource1.Caption = "Room 1" > Me.SchedulerStorage1.Resources.Add(myResource1) > > Dim myResource2 As New DevExpress.XtraScheduler.Resource > myResource2.Caption = "Room 2" > Me.SchedulerStorage1.Resources.Add(myResource2) >>
> dim oResourceObject as New DevExpress.XtraScheduler.Resource > ' Get a dataview with all the records > Dim goResources As DataView = GetDataViewObject.GetDataView(cSQL) > > Dim drv2 As DataRowView > For Each drv2 In goMeetProc > oResourceObject.Caption = drv2("ResourceName") > oResourceStartTime = drv2("ResourceStartTime") > Next >>