MS
This commit is contained in:
@@ -19,8 +19,8 @@
|
||||
End Sub
|
||||
|
||||
Private Sub frmCalendar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
|
||||
Me.TBPMO_RESOURCESTableAdapter.Fill(Me.DD_DMSDataSetCalendar.TBPMO_RESOURCES)
|
||||
Me.TBPMO_APPOINTMENTSTableAdapter.Fill(Me.DD_DMSDataSetCalendar.TBPMO_APPOINTMENTS)
|
||||
@@ -30,7 +30,7 @@
|
||||
|
||||
Private Sub AppointmentsInsertedChangedDeleted(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectsEventArgs) Handles SchedulerStorage1.AppointmentsInserted, SchedulerStorage1.AppointmentsChanged, SchedulerStorage1.AppointmentsDeleted
|
||||
Try
|
||||
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_APPOINTMENTSTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
TBPMO_APPOINTMENTSTableAdapter.Update(DD_DMSDataSetCalendar)
|
||||
DD_DMSDataSetCalendar.AcceptChanges()
|
||||
Catch ex As Exception
|
||||
@@ -41,7 +41,7 @@
|
||||
|
||||
Private Sub RessourcesInsertedChangedDeleted(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectsEventArgs) Handles SchedulerStorage1.ResourcesInserted, SchedulerStorage1.ResourcesChanged, SchedulerStorage1.ResourcesDeleted
|
||||
Try
|
||||
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_RESOURCESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
TBPMO_RESOURCESTableAdapter.Update(DD_DMSDataSetCalendar)
|
||||
DD_DMSDataSetCalendar.AcceptChanges()
|
||||
Catch ex As Exception
|
||||
|
||||
Reference in New Issue
Block a user