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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user