Imports System
Imports System.Data

Module Module1
    Private ds As New DataSet
    
    Sub Main()
        Dim strPath As String = "C:\Documents and Settings\Dan\Desktop\" & _
                                "CodeSnippetCompiler\SavedSnippets\SampleData\"
        Dim strFile As String = "Classes.XML"
        ds.ReadXml(strPath & strFile)
        DataViewColumnsNames()
        AnyKey()
        DataViewForEach("Date", "2004-11-15")
        AnyKey()
        DataViewForNext("Date", "2004-11-15")
        AnyKey()
    End Sub

    Sub AnyKey()
        Console.WriteLine("")
        Console.WriteLine("Press Enter to Continue")
        Console.ReadLine()
    End Sub
    Sub DataViewForEach(ByVal strField As String, ByVal strValue As String)
        Dim dt As New DataTable
        dt = ds.Tables(0)
        Dim dv As New DataView(dt)
        Dim strSearchString As String = strField & "='" & strValue & "'"
        dv.Sort = strField
        dv.RowFilter = strSearchString

        Dim drv As DataRowView
        Dim i As Integer = -1
        For Each drv In dv
            i += 1
            Console.WriteLine("")
            Console.WriteLine("Record #" & i.ToString)
            Console.WriteLine("   Date:        " & drv.Item("Date").tostring)
            Console.WriteLine("   Time:        " & drv.Item("DayOrNight").tostring)
            Console.WriteLine("   Description: " & drv.Item("Description").tostring)
            Console.WriteLine("   Status:      " & drv.Item("Status").tostring)
        Next

    End Sub

    Sub DataViewColumnsNames()
        Dim dt As New DataTable
        dt = ds.Tables(0)
        Dim n As Integer
        For n = 0 To dt.Columns.Count - 1
            Console.WriteLine(dt.Columns(n).ColumnName)
        Next
    End Sub

    Sub DataViewForNext(ByVal strField As String, ByVal strValue As String)
        Dim dt As New DataTable
        dt = ds.Tables(0)

        Dim dv As New DataView(dt)
        Dim strSearchString As String = strField & "='" & strValue & "'"

        dv.Sort = strField
        dv.RowFilter = strSearchString

        Dim intRowIndex As Integer = dv.Find(strSearchString)
        Dim intRowCount As Integer = dv.Count
        Dim intRow As Integer
        For intRow = 0 To intRowCount - 1
            Console.WriteLine("")
            Console.WriteLine("Record #" & intRow.ToString)
            Dim strDesc As String = dv.Item(intRow).Item("Description").ToString
            Dim strStatus As String = dv.Item(intRow).Item("Status").ToString
            Dim strTime As String = dv.Item(intRow).Item("DayOrNight").ToString
            Dim strDate As String = dv.Item(intRow).Item("Date").ToString
            Console.WriteLine("   Date:        " & strDate)
            Console.WriteLine("   Time:        " & strTime)
            Console.WriteLine("   Description: " & strDesc)
            Console.WriteLine("   Status:      " & strStatus)
        Next
    End Sub

End Module