Visual Basic

Christian Graus wrote:

You should RTFM instead of just guessing.

my query1 = "SELECT Inventory.Inventory_Id, Inventory.Inventory_description, " & _
    "Inventory.Inventory_stock_count, nz((SELECT Sum(Order.item_qty) AS SumOfitem_qty " & _
    "FROM [Order] " & _
    "WHERE Order.From_date<=Date() AND (Order.To_date)>=Date() AND Order.Item_ID=""I"" & " & _
    "Inventory.Inventory_Id),0) AS CurrentlyOut, " & _
    "[Inventory_stock_count]-Nz((SELECT Sum(Order.item_qty) AS SumOfitem_qtyFROM [Order] " & _
    "WHERE Order.From_date<=Date() AND (Order.To_date)>=Date() AND Order.Item_ID=""I"" & " & _
    "Inventory.Inventory_Id),0) AS NetHereFROM Inventory"

Dave Kreskowiak wrote:

VB.NET doesn't (until 2010 anyway)

Public Class Form1
    Dim siteCount As Integer = 0
    Dim aList As New ArrayList
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        aList.Add("http://www.jmbundy.blogspot.com/")
        aList.Add("http://www.codeproject.com/Messages/3244826/Re-Looping-Website-Viewer.aspx")
        aList.Add("http://www.google.com/webhp?sourceid=navclient&ie=UTF-8")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.WebBrowser1.Navigate(Me.aList(siteCount))
        If siteCount + 1 <= Me.aList.Count - 1 Then
            siteCount += 1
        Else : siteCount = 0
        End If
    End Sub
End Class

Private Sub Button1_Click(sender As Object, e As EventArgs)
    Button2_Click(Nothing, EventArgs.Empty)
    Button3_Click(Nothing, EventArgs.Empty)
End Sub

I are Troll

Private Sub ClickAllButtons(sender As Object) Handles Button1.Click, _
                            Button2.Click, Button3.Click

  Dim btn As Button = Nothing

  If TypeOf sender Is Button Then
      btn = DirectCast(sender, Button)
      If btn.Name = "Button1" Then

        callButton1Stuff()
        callButton2Stuff()
        callButton3Stuff()

      ElseIf btn.Name = "Button2" Then

        callButton2Stuff()

      Else

        callButton3Stuff()

      End

  Else

    ' Maybe a good idea to do something here.
    Exit Sub

  End