remove scrollbar in frmIndex, fix multiple saved values in lookup control, remove version tag button, fix final messagebox filename, allow null for wd index, delete skipped files

This commit is contained in:
Jonathan Jenne
2020-04-02 13:21:38 +02:00
parent b2c7299d2f
commit 29b29059a9
12 changed files with 804 additions and 872 deletions

View File

@@ -48,8 +48,8 @@ Public Class frmAdministration
oDragDropManager.AddGridView(viewAssignedUsers)
oDragDropManager.AddGridView(viewAvailableUsers)
RibbonPageCategoryUserGroups.Visible = False
RibbonPageCategoryMisc.Visible = False
RibbonPageUserGroups.Visible = False
RibbonPageEmail.Visible = False
Dim oDatatable As New DataTable()
oDatatable.Columns.Add("VALUE_TEXT")
@@ -190,6 +190,7 @@ Public Class frmAdministration
If MyDataset.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then
Me.GEANDERTWERTextBox.Text = Environment.UserName
Try
Me.TBDD_DOKUMENTARTBindingSource.EndEdit()
Catch ex As Exception
@@ -464,14 +465,14 @@ Public Class frmAdministration
End If
If oSelectedPageName = XtraTabPageUsersGroups.Name Then
RibbonPageCategoryUserGroups.Visible = True
RibbonPageUserGroups.Visible = True
RibbonControl1.SelectedPage = RibbonPageUserGroups
Else
RibbonPageCategoryUserGroups.Visible = False
RibbonPageUserGroups.Visible = False
End If
If oSelectedPageName = XtraTabPageEmail.Name Then
RibbonPageCategoryMisc.Visible = True
RibbonPageEmail.Visible = True
If oSelectedPageName = XtraTabPageEmail.Name Then
RibbonControl1.SelectedPage = RibbonPageEmail
@@ -479,7 +480,7 @@ Public Class frmAdministration
Else
RibbonPageCategoryMisc.Visible = False
RibbonPageEmail.Visible = False
End If
Select Case XtraTabControl1.SelectedTabPageIndex