From dd616b2d22561b34e1388df43df4dda6ff18d0f9 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Wed, 2 Oct 2024 12:37:31 +0200 Subject: [PATCH] =?UTF-8?q?MS=20FileCount=20Pr=C3=BCfung=20entfernt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- app/TaskFlow/frmMain.vb | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index d023357..71a5169 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -808,10 +808,8 @@ Public Class frmMain NavBarControl1.Visible = True Dim oCountItems As Integer = 0 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") - If oFileCount > 0 And (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then - + If (ODisplayMode = "Overview and Detail" Or ODisplayMode = "Detail") Then oCountItems += 1 Dim item1 As NavBarItem = NavBarControl1.Items.Add() item1.Caption = oProfileRow.Item("TITLE") @@ -825,8 +823,6 @@ Public Class frmMain item1.SmallImage = _image NavBarControl1.Groups(1).ItemLinks.Add(item1) - - End If Next If oCountItems > 0 Then