MS Search

GUIs.ZooFlow/Search/ClassControlCreator.vb

@@ -84,6 +84,7 @@ Public Class ClassControlCreator
             oSourceSQL = oSourceSQL.Replace("@USER_LANGUAGE", My.Application.User.Language)
             oSourceSQL = oSourceSQL.Replace("@pUSER_ID", My.Application.User.UserId)
             oSourceSQL = oSourceSQL.Replace("@RESULT_TITLE", pAttributeRow.Item("ATTRIBUTE_TITLE").ToString)
+            'oSourceSQL = oSourceSQL & " ORDER BY T.TERM_VALUE"
             Dim oDTSource As DataTable
             'If pAttributeRow.Item("DEPENDING_ATTRIBUTE1") = 0 Then
             If Utils.NotNull(oSourceSQL, String.Empty) <> String.Empty Then
@@ -95,6 +96,8 @@ Public Class ClassControlCreator
             Dim oMaxValue As String = ""
 
             If Not IsNothing(oDTSource) Then
+                oDTSource.DefaultView.Sort = pAttributeRow.Item("ATTRIBUTE_TITLE").ToString '"ColumnName ASC"
+                oDTSource = oDTSource.DefaultView.ToTable
                 oMinValue = oDTSource.Rows(0).Item(0)
                 oMaxValue = oDTSource.Rows(oDTSource.Rows.Count - 1).Item(0)
             End If
@@ -181,7 +184,7 @@ Public Class ClassControlCreator
         'oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH")), CInt(pAttributeRow.Item("HEIGHT")))
 
         oView = CType(oMyNewGridControl.MainView, GridView)
-        oView.Appearance.EvenRow.BackColor = Color.PaleTurquoise
+        oView.Appearance.EvenRow.BackColor = Color.FromArgb(255, 214, 49)
         oView.OptionsBehavior.Editable = False
         oView.OptionsBehavior.ReadOnly = True
         oView.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.False