Visual Basic

Andy_L_J wrote:

IsNull("WebCheatSheet") returns FALSE
IsNull(2006) returns FALSE

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