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

MS FileCount Prüfung entfernt

Browse Source
This commit is contained in:
Developer01 2024-10-02 12:37:31 +02:00
parent 208b76d38e
commit dd616b2d22
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/TaskFlow/frmMain.vb
View File

@ -808,10 +808,8 @@ Public Class frmMain
NavBarControl1.Visible = True NavBarControl1.Visible = True
Dim oCountItems As Integer = 0 Dim oCountItems As Integer = 0
For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
Dim oFileCount = CInt(oProfileRow.Item("FILE_COUNT"))
Dim ODisplayMode = oProfileRow.Item("DISPLAY_MODE") Dim ODisplayMode = oProfileRow.Item("DISPLAY_MODE")
If oFileCount > 0 And (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then If (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then
oCountItems += 1 oCountItems += 1
Dim item1 As NavBarItem = NavBarControl1.Items.Add() Dim item1 As NavBarItem = NavBarControl1.Items.Add()
item1.Caption = oProfileRow.Item("TITLE") item1.Caption = oProfileRow.Item("TITLE")
@ -825,8 +823,6 @@ Public Class frmMain
item1.SmallImage = _image item1.SmallImage = _image
NavBarControl1.Groups(1).ItemLinks.Add(item1) NavBarControl1.Groups(1).ItemLinks.Add(item1)
End If End If
Next Next
If oCountItems > 0 Then If oCountItems > 0 Then