报告不按代码排序

Question

我想对组合框的使用选项进行排序。报告显示完美，除了排序不工作并且没有抛出错误。我正在使用 Crystal 报告版本 10.0.0.533 和 Visual Basic 6

Dim Report  As New CRAXDRT.Report  
Set Report = App1.OpenReport(g_ReportDirectory & "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

应用程序打开报表，显示数据是无序的。

Answer 1

我找到了我的解决方案。我在我的报告中创建了一个组并分配给一个公式字段，Report.Areas("GH3") 指的是组 header3，Report.FormulaFields.Item(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

报告不按代码排序

Report doesn't sort by code

sorting

vb6

report

crystal-reports