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

kein_quick_access_duplikate_jj_04_01_16

Browse Source
This commit is contained in:
JenneJ
2016-01-04 13:39:10 +01:00
parent 3bcfde3a6f
commit b5e082cd84
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD-Record-Organiser/frmMain.vb
View File

@@ -95,6 +95,8 @@ Public Class frmMain
Dim SQL As String = "SELECT * FROM TBPMO_MENU_FORM" Dim SQL As String = "SELECT * FROM TBPMO_MENU_FORM"
Dim dtRootMenu As DataTable = ClassDatabase.Return_Datatable(SQL) Dim dtRootMenu As DataTable = ClassDatabase.Return_Datatable(SQL)
pageForms.Groups.Clear()
If dtRootMenu.Rows.Count <> 0 Then If dtRootMenu.Rows.Count <> 0 Then
For Each row As DataRow In dtRootMenu.Rows For Each row As DataRow In dtRootMenu.Rows
@@ -144,6 +146,10 @@ Public Class frmMain
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
Dim image2 As Bitmap = LoadNoImage() Dim image2 As Bitmap = LoadNoImage()
Do While 0 < groupQuickAccess.ItemLinks.Count
groupQuickAccess.ItemLinks.Remove(groupQuickAccess.ItemLinks(0))
Loop
If dt.Rows.Count <> 0 Then If dt.Rows.Count <> 0 Then
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows
@@ -171,6 +177,11 @@ Public Class frmMain
End If End If
' TODO: NUR FÜR WINDREAM CON!!! ' TODO: NUR FÜR WINDREAM CON!!!
Do While 0 < groupQuickAccessDemo.ItemLinks.Count
groupQuickAccessDemo.ItemLinks.Remove(groupQuickAccessDemo.ItemLinks(0))
Loop
If dt.Rows.Count <> 0 Then If dt.Rows.Count <> 0 Then
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows