add keybinding for profile selector

This commit is contained in:
Jonathan Jenne
2023-12-19 10:12:05 +01:00
parent 75bfd81ad4
commit 64a6cba017
7 changed files with 22 additions and 22 deletions

View File

@@ -1,12 +1,9 @@
Imports System.IO
Imports Microsoft.Office.Interop
Imports System.Text
Imports System.Globalization
Imports System.Threading
Imports System.Runtime.InteropServices
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Windows
Imports DigitalData.Modules.License
Imports DigitalData.Modules.Base
Imports DigitalData.GUIs.Common
Public Class frmStart
@@ -250,10 +247,10 @@ Public Class frmStart
End If
End If
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim oFileString As String = Filerow.Item("FILENAME2WORK")
Dim oFileGuid = Filerow.Item("GUID")
Dim oFileHash = Utils.NotNull(Filerow.Item("FILE_HASH"), "")
For Each oRow As DataRow In DTACTUAL_FILES.Rows
Dim oFileString As String = oRow.Item("FILENAME2WORK")
Dim oFileGuid = oRow.Item("GUID")
Dim oFileHash = oRow.ItemEx("FILE_HASH", "")
LOGGER.Info("Processing user file {0}", oFileString)
CURRENT_FILENAME = oFileString