Visual Basic

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?

If Selection.InlineShapes.Count = 0 Then
    MsgBox "Please select a shape!"
    Exit Sub
End If

Set ils = Selection.InlineShapes(1)
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 100)
ils.ScaleHeight = PercentSize
ils.ScaleWidth = PercentSize

Set shp = ils.ConvertToShape
...

Sub PicResizeMoveToRight()
'
' Resize Pic and move to the RHS of page
'
    Dim ils As InlineShape
    Dim shp As Shape
    Dim PercentSize As Integer
    If Selection.InlineShapes.Count = 0 Then
        MsgBox "Please select a shape!"
        Exit Sub
    End If
    
    Set ils = Selection.InlineShapes(1)
        PercentSize = InputBox("Enter percent of full size", _
            "Resize Picture", 100)
        ils.ScaleHeight = PercentSize
        ils.ScaleWidth = PercentSize
        Set shp = ils.ConvertToShape
    With shp
        .WrapFormat.Type = wdWrapTight
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .Left = wdFrameRight
    End With
End Sub