This commit is contained in:
Digital Data - Marlon Schreiber
2017-08-14 10:20:03 +02:00
86 changed files with 14803 additions and 32803 deletions

View File

@@ -266,6 +266,7 @@ Public Class frmStart
DTACTUAL_FILES = Nothing
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
End If
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim filestring As String = Filerow.Item("FILENAME2WORK")
CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")