Блог

Главная - Вопросы по программированию - Отчет не сортируется по коду

Отчет не сортируется по коду

#sorting #crystal-reports #vb6 #report

#сортировка #crystal-отчеты #vb6 #Сообщить

Вопрос:

Я хочу отсортировать свои, используя опции выпадающих списков. Отчет отображается отлично, за исключением того, что сортировка не работает и не выдает ошибок. Я использую Crystal Reports версии 10.0.0.533 и Visual Basic 6

 Dim Report  As New CRAXDRT.Report  
Set Report = App1.OpenReport(g_ReportDirectory amp; "xxxx.rpt")

If cmbRefresh6.Text <> "" Then

    Select Case cmbRefresh6.Text
                       Case "TestOne"
                      Report.RecordSortFields.Add Report.Database.Tables(2).Fields.Item(3), crDescendingOrder
                        Case "TestTwo"
                             Report.RecordSortFields.Add Report.Database.Tables(1).Fields.Item(23), crDescendingOrder
     End Select
End If

If (cmbRefresh1.Text <> "") Then
     Report.RecordSelectionFormula = "{WORK.ID}" = '1' 
End If

Приложение открывает отчет, показывает, что данные неупорядочены.

Ответ №1:

Я нашел свое решение, делающее это. Я создал группу в своем отчете и назначил ее полю формулы, Отчету.Области («GH3») относятся к заголовку группы 3 и отчету.Поля формулы.Элемент (2) — это моя формула с элементом для сортировки. Я надеюсь, что это поможет вам с аналогичными проблемами, имея второй вариант заказа.

 If cmbRefresh6.Text <> "" Then

                    Select Case cmbRefresh6.Text
                        Case "TestOne"

                              Report.Areas("GH3").GroupConditionField = Report.FormulaFields.Item(3)
                              Report.Areas("GH3").SortDirection = crAscendingOrder
                        Case "TestTwo"

                              Report.Areas("GH3").GroupConditionField = Report.FormulaFields.Item(2)
                              Report.Areas("GH3").SortDirection = crAscendingOrder
                    End Select
                End If