Changed data managers to use field names
This commit is contained in:
+12
-12
@@ -160,18 +160,18 @@ Public Class mgrSettings
|
||||
oData = oDatabase.ReadParamData(sSQL, New Hashtable)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
MonitorOnStartup = CBool(dr(1))
|
||||
StartToTray = CBool(dr(2))
|
||||
ShowDetectionToolTips = CBool(dr(3))
|
||||
DisableConfirmation = CBool(dr(4))
|
||||
CreateSubFolder = CBool(dr(5))
|
||||
ShowOverwriteWarning = CBool(dr(6))
|
||||
RestoreOnLaunch = CBool(dr(7))
|
||||
BackupFolder = CStr(dr(8))
|
||||
Sync = CBool(dr(9))
|
||||
CheckSum = CBool(dr(10))
|
||||
StartWithWindows = CBool(dr(11))
|
||||
TimeTracking = CBool(dr(12))
|
||||
MonitorOnStartup = CBool(dr("MonitorOnStartup"))
|
||||
StartToTray = CBool(dr("StartToTray"))
|
||||
ShowDetectionToolTips = CBool(dr("ShowDetectionToolTips"))
|
||||
DisableConfirmation = CBool(dr("DisableConfirmation"))
|
||||
CreateSubFolder = CBool(dr("CreateSubFolder"))
|
||||
ShowOverwriteWarning = CBool(dr("ShowOverwriteWarning"))
|
||||
RestoreOnLaunch = CBool(dr("RestoreOnLaunch"))
|
||||
BackupFolder = CStr(dr("BackupFolder"))
|
||||
Sync = CBool(dr("Sync"))
|
||||
CheckSum = CBool(dr("CheckSum"))
|
||||
StartWithWindows = CBool(dr("StartWithWindows"))
|
||||
TimeTracking = CBool(dr("TimeTracking"))
|
||||
Next
|
||||
|
||||
oDatabase.Disconnect()
|
||||
|
||||
Reference in New Issue
Block a user