[RESOLVED] Crystal Sort Order

[Foxy69]

Can anybody see why the following code doesn't work. VB.Net doesn't grumble but it doesn't run the report and promptly exits the program without any errors. If I comment out the code it works fine.

The report already has two sort fields but I just need to change the sort order.

Dim sField1 As CrystalDecisions.CrystalReports.Engine.DatabaseFieldDefinition
sField1 = x.cr.Database.Tables.Item(0).Fields("sales_order")
x.cr.DataDefinition.SortFields.Item(0).Field = sField1

[nathy1210]

Which CR version ?

In CR 11, I used this, and it works fine :

Call x.cr.RecordSortFields.Add(x.cr.Database.Tables(1).Fields.GetItemByName("sales_order"), crAscendingOrder)

Hope it'll help.

Nathy1210

[Foxy69]

Thanks, I'll give it a try but I did get round it by using grouping.

Select Case CcbsCombo1.SelectedIndex
            Case 0 'by line
 
            Case 1 'by part
                Dim grpline As CrystalDecisions.CrystalReports.Engine.FieldDefinition
                grpline = x.cr.Database.Tables(0).Fields("order_line")
                x.cr.DataDefinition.Groups(2).ConditionField = grpline
 
                Dim grppart As CrystalDecisions.CrystalReports.Engine.FieldDefinition
                grppart = x.cr.Database.Tables(0).Fields("part")
                x.cr.DataDefinition.Groups(1).ConditionField = grppart
            Case 2 'by bin
                Dim grppart As CrystalDecisions.CrystalReports.Engine.FieldDefinition
                grppart = x.cr.Database.Tables(0).Fields("part")
                x.cr.DataDefinition.Groups(2).ConditionField = grppart
 
                Dim grpbin As CrystalDecisions.CrystalReports.Engine.FieldDefinition
                grpbin = x.cr.Database.Tables(0).Fields("bin")
                x.cr.DataDefinition.Groups(1).ConditionField = grpbin
        End Select

(I am using CR 11)