AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

last fixes

Browse Source
This commit is contained in:
Jonathan Jenne
2019-10-29 14:33:23 +01:00
parent 24e1fa2e04
commit b145bdf6b5
6 changed files with 44 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -276,8 +276,6 @@ Public Class frmAdministration
End Sub
Private Sub TBCW_PROF_DATA_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DATA_SEARCHBindingSource.AddingNew
MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1
@@ -339,9 +337,12 @@ Public Class frmAdministration
End Sub
Sub Refresh_ProfileScreen()
Load_Profiles()
Refresh_ProfileData()
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
If PROFILE_IDTextBox.Text <> "" Then
Refresh_ProfileData()
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
End If
End Sub
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
@@ -660,10 +661,8 @@ Public Class frmAdministration
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Dokument-Suche gespeichert")
End If
Catch ex As NoNullAllowedException
MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
Catch ex As Exception
MsgBox("Unexpected Error while saving Document Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ShowErrorMessage(ex)
End Try
End Sub