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

MS Unwichtiges

Browse Source
This commit is contained in:
SchreiberM
2021-01-19 13:50:27 +01:00
parent d8f25ecbd2
commit 7917465bf4
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -242,14 +242,14 @@ Public Class frmFlowForm
End If End If
oSQL = "SELECT * FROM TBIDB_ATTRIBUTE" oSQL = "SELECT * FROM TBIDB_ATTRIBUTE"
My.DTAttributes = _DataASorDB.GetDatatable("IDB", oSQL, "TBIDB_ATTRIBUTE", "", "") My.DTAttributes = _DataASorDB.GetDatatable("IDB", oSQL, "TBIDB_ATTRIBUTE", "", "")
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
Public Sub Init_Folderwatch() Public Sub Init_Folderwatch()
Try Try
Dim oSql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & My.Application.User.UserId 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) folderwatchPath = IIf(IsDBNull(folderwatchPath), "", folderwatchPath)