MS
This commit is contained in:
@@ -5,9 +5,9 @@
|
||||
Dim loaded As Boolean = False
|
||||
Private Sub frmTemplates_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
Me.TBPMO_TEMPLATETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_TEMPLATE_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_TEMPLATE_PATTERNTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_TEMPLATETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
Me.TBPMO_TEMPLATE_ENTITYTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
Me.TBPMO_TEMPLATE_PATTERNTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
@@ -77,7 +77,7 @@
|
||||
End Sub
|
||||
Sub Load_Doctypes()
|
||||
Try
|
||||
VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
Me.VWPMO_DOKUMENTTYPESTableAdapter.FillBy(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES)
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected error in Load Doctypes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -85,7 +85,7 @@
|
||||
End Sub
|
||||
Sub Load_Entities()
|
||||
Try
|
||||
VWPMO_GUI_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
VWPMO_GUI_ENTITYTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
||||
Me.VWPMO_GUI_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_GUI_ENTITY)
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected error in Load Entities:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
|
||||
Reference in New Issue
Block a user