Visual Basic

//Create the Top10 Customer % Report Data
Dim top10Exp As String = ""
If (table_Active.Rows.Count > 0) Then
    table_Top10Percent = table_Active.Select(top10Exp).CopyToDataTable()
End If

//Create the Top10 Report DataTable
Dim row_T10 As DataRow
row_T10 = table_Top10Percent.NewRow()
row_T10("T10") = 80000
row_T10("B90") = 50000
row_T10("YTD") = 130000
table_Top10Percent.Rows.Add(row_T10)

Dim table_Active As DataTable = New DataTable()
table_Active.TableName = "dt_customerActive"
table_Active.Columns.Add(New DataColumn("ID", System.Type.GetType("System.String")))

//Assign the dataSet to the Tablix in the report canvas body
 Dim ds_Active As DataSet = New DataSet()
 ds_Active.DataSetName = "ds_customerActive"
 ds_Active.Tables.Clear()
 ds_Active.Tables.Add(table_Active)
 ds_Active.Tables(0).TableName = "tablix_salesActive"

//Sort the Active Table according to TATD
 Dim dV As DataView = New DataView(ds_Active.Tables("tablix_salesActive"))
 Select Case p_sortOrder
      Case salesHistory5Year_Sort.Name
        dV.Sort = "Name"

      Case salesHistory5Year_Sort.Spent
        dV.Sort = "TATD DESC"

     Case salesHistory5Year_Sort.Territory
        dV.Sort = "Territory"

End Select