Question

我想对使用组合框的选项进行排序。报告显示完美，除了排序不起作用并且没有错误。我正在使用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

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

Answer 1

我找到了解决方案。我在报告中创建了一个组并分配到公式字段，Report.Areas（＆＃34; GH3＆＃34;）引用组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

报告不按代码排序

1 个答案: