Zooflow: WIP

Modules.Language/DataRowEx.vb

@@ -0,0 +1,12 @@
+Imports System.Runtime.CompilerServices
+
+Public Module DataRowEx
+    <Extension()>
+    Public Function ItemEx(Of T)(pRow As DataRow, pFieldName As String, Optional pDefaultValue As T = Nothing) As T
+        Try
+            Return Utils.NotNull(pRow.Item(pFieldName), pDefaultValue)
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+End Module

Modules.Language/Language.vbproj

@@ -74,6 +74,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="DataRowEx.vb" />
     <Compile Include="InvalidChars.vb" />
     <Compile Include="Utils.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />

Modules.Language/Utils.vb

@@ -1,4 +1,5 @@
 Imports System.Drawing
+Imports System.Runtime.CompilerServices
 Imports System.Text
 Imports System.Text.RegularExpressions
 Imports System.Windows.Forms