Sorting 报告没有'；t按代码排序

我想使用组合框的选项对我的文件进行排序。报告显示完美，但排序不起作用且不会抛出错误。我使用的是Crystal Reports版本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

Dim报告作为新CRAXDRT.Report
Set Report=App1.OpenReport（g_ReportDirectory&“xxxx.rpt”）
如果是6.文本“”，则
选择案例6.Text
案例“TestOne”
Report.RecordSortFields.Add Report.Database.Tables（2）.Fields.Item（3），crDescendingOrder
案例“测试二”
Report.RecordSortFields.Add Report.Database.Tables（1）.Fields.Item（23），crDescendingOrder
结束选择
如果结束
如果（1.Text“”），则
Report.RecordSelectionFormula=“{WORK.ID}”=“1”
如果结束

---

应用程序打开报告，显示数据无序。

我发现我的解决方案正在这样做。我在我的报告中创建了一个组，并将其分配给一个公式字段，即report.Areas（“GH3”）指的是group 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

如果是6.文本“”，则
选择案例6.Text
案例“TestOne”
Report.Areas（“GH3”）.GroupConditionField=Report.FormulaFields.Item（3）
报告区域（“GH3”）。排序方向=崩溃顺序
案例“测试二”
Report.Areas（“GH3”）.GroupConditionField=Report.FormulaFields.Item（2）
报告区域（“GH3”）。排序方向=崩溃顺序
结束选择
如果结束

我发现我的解决方案正在这样做。我在我的报告中创建了一个组，并将其分配给一个公式字段，即report.Areas（“GH3”）指的是group 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

如果是6.文本“”，则
选择案例6.Text
案例“TestOne”
Report.Areas（“GH3”）.GroupConditionField=Report.FormulaFields.Item（3）
报告区域（“GH3”）。排序方向=崩溃顺序
案例“测试二”
Report.Areas（“GH3”）.GroupConditionField=Report.FormulaFields.Item（2）
报告区域（“GH3”）。排序方向=崩溃顺序
结束选择
如果结束