MS_23112015

app/DD-Record-Organiser/ClassControlValues.vb

@@ -259,6 +259,9 @@ Public Class ClassControlValues
 
                 Dim SQL As String = String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE FORM_ID = {0} AND NAME = '{1}'", CURRENT_FORM_ID, C.Name)
                 Dim SQL2 As String = ClassDatabase.Execute_Scalar(SQL)
+                If SQL2 = "" Then
+                    Exit Sub
+                End If
                 Dim DT_Combobox As DataTable = ClassDatabase.Return_Datatable(SQL2)
                 If DT_Combobox Is Nothing = False Then
                     If DT_Combobox.Rows.Count > 0 Then