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

Common: Show error message when attributes could not be loaded

Browse Source
This commit is contained in:
Jonathan Jenne 2021-09-13 12:50:40 +02:00
parent a83c751be6
commit 27a757f8d0
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb
View File

@ -170,6 +170,10 @@ Public Class frmObjectPropertyDialog
Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId) Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId)
If oAttributes.Count = 0 Then
MsgBox($"Es konnten keine Attribute für das Objekt '{_ObjectId}' geladen werden!", MsgBoxStyle.Critical, Text)
End If
For Each oAttribute As Attribute In oAttributes For Each oAttribute As Attribute In oAttributes
Dim oControl = _Controls.GetControlForAttribute(oAttribute, True) Dim oControl = _Controls.GetControlForAttribute(oAttribute, True)
Dim oItem As LayoutControlItem = AttributeLayout.AddItem() Dim oItem As LayoutControlItem = AttributeLayout.AddItem()
@ -230,4 +234,8 @@ Public Class frmObjectPropertyDialog
Return False Return False
End Try End Try
End Function End Function
Private Sub TabFormControl1_Click(sender As Object, e As EventArgs) Handles TabFormControl1.Click
End Sub
End Class End Class