This commit is contained in:
2023-07-20 14:12:24 +02:00
parent c2deb54f11
commit ea5ea5f205
64 changed files with 8139 additions and 7996 deletions

View File

@@ -290,8 +290,9 @@
Next 'Level 3 Ende
Next ' Level 2 Ende
Next 'Level 1 Ende
TreeView1.Nodes.Add(LEVEL0_NODE)
Next
TreeView1.Nodes.Add(LEVEL0_NODE)
TreeView1.ExpandAll()
Catch ex As Exception
@@ -318,10 +319,10 @@
End Function
Private Sub frmStructureNodeConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Me.TBWH_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBWH_ENTITYTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBWH_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.TBWH_ENTITY, USER_LANGUAGE)
Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID)
Catch ex As Exception
MsgBox("Error in Loading Configuration:" & vbNewLine & ex.Message)