Visual Basic

garyu87 wrote:

cmd1.Parameters.AddWithValue("@FNBID", txtExpensesID.Text)

cmd1.Parameters.AddWithValue("@FNBID", Food_And_BeverageID)

ctrl.Dispose

For Each ctrl as Control in Me.Controls
Next

dim NumberOfControl as Integer = Me.Controls.Count

for Counter as integer = 0 to NumberOfControls step -1
 if typeof ctrl is picturebox then
  'do stuff
 end if
Next

Simon_Whale wrote:

for Counter as integer = 0 to NumberOfControls step -1

for Counter as integer = NumberOfControls to 0 step -1

Sub Main()
        Dim dict = New Dictionary(Of String, List(Of Integer))

        Dim unitCode = String.Empty
        Dim qty = 0        

        ' process all files
        For Each file In GetFiles()

            'process each row in file
            For Each row In file

                'methode for extracting unitcode
                unitCode = GetUnitCode(row)
                'methode for extracting qty
                qty = GetQuantity(row)

                'dictionory object already holds the unitcode so just add the qty
                If dict.ContainsKey(unitCode) Then
                    dict(unitCode).Add(qty)

                    'dictionory object doesn't holds the unitcode so add the unitCode and the first qty
                Else
                    Dim qtyList = New List(Of Integer)
                    qtyList.Add(qty)
                    dict.Add(unitCode, qtyList)
                End If
            Next
        Next
    End Sub

jon2371 wrote:

sample code/form