From 2bbdc4c902b04bd50d9071f365c1ef3ddcc8abfc Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 19 Jan 2021 16:07:27 +0100 Subject: [PATCH] =?UTF-8?q?merge=20ms=20=C3=A4nderung?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- GUIs.ZooFlow/frmFlowForm.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 1ba0dafa..1b04ecbf 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -279,7 +279,9 @@ Public Class frmFlowForm 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 oFolderWatchPath As Object = My.Database.GetScalarValue(oSql) + + Dim oDT As DataTable = AppServerOrDB.GetDatatable("IDB", oSql, "TBGI_FOLDERWATCH_USER", $"FOLDER_TYPE = 'DEFAULT' AND USER_ID = {My.Application.User.UserId}") + Dim oFolderWatchPath = oDT.Rows(0).Item("FOLDER_PATH") oFolderWatchPath = NotNull(oFolderWatchPath, String.Empty) If oFolderWatchPath = String.Empty Then