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

Update Version 1.6

Browse Source
This commit is contained in:
Stefan Hutter
2021-08-01 08:58:37 +02:00
parent 762f2c0032
commit 78bb82c44d
119 changed files with 79548 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb
View File

@@ -1,9 +1,11 @@
Public Class frmBeziehungEdit
Dim kontaktfb As New DataTable
Dim kontaktsd As New DataTable
Dim dc As New _DataClass.DataClass
Dim sec As New Utils.MySecurity
Dim Datenklasse As New _DataClass.DataClass
Public Kontaktid As Integer = 0
Public KontaktidSD As Integer = 0
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
@@ -22,6 +24,11 @@
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
kontaktsd = Datenklasse.Get_Stammdaten("SERVICEDESK", "Bezeichnung")
Me.cbboxKontaktSD.DataSource = kontaktsd
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
Me.cbboxKontaktSD.ValueMember = "Keyvalue"
Me.cbboxKontaktSD.SelectedValue = Me.KontaktidSD
End If
sec.Set_Form_Security(Me)