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

MS

Browse Source
This commit is contained in:
SchreiberM
2020-03-10 17:07:51 +01:00
parent 12121cb0ed
commit b8cfb26e0b
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@@ -128,12 +128,18 @@ Public Class frmAdministration
End Sub End Sub
Private Sub ObjekttypenEintragen() Private Sub ObjekttypenEintragen()
Me.cmbObjekttypen.Items.Clear() Try
Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY" Me.cmbObjekttypen.Items.Clear()
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY"
For Each oROW As DataRow In oDT.Rows Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
Me.cmbObjekttypen.Items.Add(oROW.Item(1)) For Each oROW As DataRow In oDT.Rows
Next Me.cmbObjekttypen.Items.Add(oROW.Item(1))
Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error ObjekttypenEintragen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
End Sub End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnWMSuche.Click Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnWMSuche.Click