MS_04.01
This commit is contained in:
@@ -9,7 +9,7 @@ Public Class ClassFunctionCommandsUI
|
||||
reminder.AlertTime = DueDateTime
|
||||
apt.Reminders.Add(reminder)
|
||||
|
||||
Dim Value = ClassDatabase.Execute_Scalar(SQL)
|
||||
Dim Value = ClassDatabase.Execute_Scalar(SQL, True)
|
||||
If Value Is Nothing Then
|
||||
apt.Subject = Subject & " - " & Value.ToString()
|
||||
Else
|
||||
@@ -37,7 +37,7 @@ Public Class ClassFunctionCommandsUI
|
||||
reminder.AlertTime = DueDateTime
|
||||
apt.Reminders.Add(reminder)
|
||||
|
||||
Dim Value = ClassDatabase.Execute_Scalar(SQL)
|
||||
Dim Value = ClassDatabase.Execute_Scalar(SQL, True)
|
||||
|
||||
apt.Subject = Subject & " - " & Value.ToString()
|
||||
apt.Description = Description
|
||||
|
||||
Reference in New Issue
Block a user