From 7917465bf4e0f479d220a458770aeda7cbd02a11 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 19 Jan 2021 13:50:27 +0100 Subject: [PATCH] MS Unwichtiges --- GUIs.ZooFlow/frmFlowForm.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 022e81ef..5f337304 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -242,14 +242,14 @@ Public Class frmFlowForm End If oSQL = "SELECT * FROM TBIDB_ATTRIBUTE" - My.DTAttributes = _DataASorDB.GetDatatable("IDB", oSQL, "TBIDB_ATTRIBUTE", "", "") Me.Cursor = Cursors.Default End Sub Public Sub Init_Folderwatch() Try Dim oSql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & My.Application.User.UserId - Dim folderwatchPath = My.Database.GetScalarValue(oSql) + Dim oDT As DataTable = _DataASorDB.GetDatatable("IDB", oSql, "TBGI_FOLDERWATCH_USER", $"FOLDER_TYPE = 'DEFAULT' AND USER_ID = {My.Application.User.UserId}") + Dim folderwatchPath = oDT.Rows(0).Item("FOLDER_PATH") folderwatchPath = IIf(IsDBNull(folderwatchPath), "", folderwatchPath)