Visual Basic

DutchComputerKid wrote:

and that is expensive as hell

DutchComputerKid wrote:

I'm a retro person

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Dim dv_top10 As New DataView(table_Active)
dv_top10.Sort = "Y1_ATD Desc"
Dim dt_top10 = dv_top10.ToTable().Rows.Cast(Of DataRow)().Take(10)
Dim T10 As Decimal = dt_top10.AsEnumerable().Sum(Function(row) row.Field(Of Decimal)("Y1_ATD"))

jkirkerx wrote:

without a reference

DataView.Sort Property (System.Data)[^]:

A string that contains the column name followed by "ASC" (ascending) or "DESC" (descending).
Columns are sorted ascending by default.
Multiple columns can be separated by commas.

//Sort the Active Table according to TATD
Dim dV As DataView = New DataView(table_Active)
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

//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(dV.ToTable())
ds_Active.Tables(0).TableName = "tablix_salesActive"

Dim myByteArray = New Byte(){1, 2, 3}
' in a real application 'myByteArray' would be passed as a reference
For index = 0 To myByteArray.GetUpperBound(0)
    myByteArray(index) = myByteArray(index) Xor nOut
Next

For Each element In myByteArray
    element = element Xor nOut
Next

Member 12705131 wrote:

can any one help me with a source code?