shu/BEA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Anpassungen 20210526

Browse Source
This commit is contained in:
Stefan Hutter
2021-05-26 09:31:17 +02:00
parent 97ef665fd1
commit 762f2c0032
24 changed files with 42 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb
View File

@@ -16,11 +16,14 @@
End Sub
Private Sub frmBeziehungEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
If Me.Panel2.Height = 227 Then
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
End If
sec.Set_Form_Security(Me)
End Sub