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

jj: fix nullreference error for final indicies

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-05 14:46:32 +02:00
parent 5797341a73
commit 6f23e9b045
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_PM_WINDREAM/frmProfileDesigner.vb
View File

@ -197,7 +197,7 @@ Public Class frmProfileDesigner
cmbProfiles.Text = NAMETextBox.Text cmbProfiles.Text = NAMETextBox.Text
End If End If
Indexe_eintragen() Indexe_eintragen()
If tabctrl_Profilkonfig.SelectedIndex = 1 Then If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
Refresh_Final_indexe() Refresh_Final_indexe()
End If End If
End Sub End Sub
@ -206,15 +206,11 @@ Public Class frmProfileDesigner
If TBPM_PROFILETableAdapter.cmdAnzProfile + 1 > LICENSE_PROFILES Then If TBPM_PROFILETableAdapter.cmdAnzProfile + 1 > LICENSE_PROFILES Then
MsgBox("Sie haben die maximale Anzahl (" & LICENSE_PROFILES & ") von lizensierten Profilen erreicht!" & vbNewLine & "Bitte löschen Sie Profile oder setzen sich mit Digital Data in Verbindung!", MsgBoxStyle.Exclamation, "Achtung Lizenzhinweis:") MsgBox("Sie haben die maximale Anzahl (" & LICENSE_PROFILES & ") von lizensierten Profilen erreicht!" & vbNewLine & "Bitte löschen Sie Profile oder setzen sich mit Digital Data in Verbindung!", MsgBoxStyle.Exclamation, "Achtung Lizenzhinweis:")
Else Else
Me.TBPM_PROFILEBindingSource.AddNew() TBPM_PROFILEBindingSource.AddNew()
End If End If
End Sub End Sub
Private Sub GUIDTextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles PROFILGUIDTextBox.TextChanged
End Sub
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnDesigner_open.Click Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnDesigner_open.Click
If CInt(PROFILGUIDTextBox.Text) > 0 Then If CInt(PROFILGUIDTextBox.Text) > 0 Then
profile_guid = PROFILGUIDTextBox.Text profile_guid = PROFILGUIDTextBox.Text
@ -972,4 +968,6 @@ Public Class frmProfileDesigner
End Try End Try
End If End If
End Sub End Sub
End Class End Class