Imports System

Imports System.Xml

Imports System.Data

​

Public Module Module1

​

    Public Sub Main()

        Dim dt As DataTable = GetMockData()

        For Each row As DataRow In dt.Rows

        Console.WriteLine("Int: {0}; Decimal: {1}; String: {2}; DBNull: {3}; DateTime: {4}", _

            row.GetValueOrDefault(Of Integer)("Int"), _

            row.GetValueOrDefault(Of Decimal)("Decimal"), _

            row.GetValueOrDefault(Of String)("String"), _

            row.GetValueOrDefault(Of Integer)("DBNull"), _

            row.GetValueOrDefault(Of DateTime)("DateTime"))

        Next

    End Sub

​

    Public Function GetMockData() As DataTable

        Dim dt = New DataTable("TestData")

        dt.Columns.Add("Int", GetType(Integer))

        dt.Columns.Add("decimal", GetType(decimal))

        dt.Columns.Add("String", GetType(String))

        dt.Columns.Add("DbNull", GetType(Integer))

        dt.Columns.Add("DateTime", GetType(DateTime))

        Dim dr = dt.NewRow()

        dr("Int") = 999

        dr("Decimal") = 154.36

        dr("String") = "My Test"

        dr("DBNull") = DBNull.Value

        dr("DateTime") = DateTime.Now

        dt.Rows.Add(dr)

        Dim dr2 = dt.NewRow()

        dr2("Int") = 111

        dr2("Decimal") = 0.6845

        dr2("String") = Nothing

        dr2("DBNull") = DBNull.Value

        dr2("DateTime") = DateTime.Now.AddDays(7)

        dt.Rows.Add(dr2)

        Return dt

    End Function

End Module

​

Public Module DataRowExtensions

​

    <System.Runtime.CompilerServices.Extension>

    Public Function GetValueOrDefault(Of TExpectedType)(dr As DataRow, propertyName As String) As TExpectedType

        If DBNull.Value.Equals(dr(propertyName)) Then

            Return Nothing

        End If

​

        Return DirectCast(dr(propertyName), TExpectedType)

    End Function

End Module

​