Language: Add Datatable.First Extension method

Modules.Language/DataTableEx.vb

@@ -0,0 +1,24 @@
+Imports System.Runtime.CompilerServices
+
+Public Module DataTableEx
+    <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
+
+    <Extension()>
+    Public Function First(pTable As DataTable) As DataRow
+        Try
+            If pTable Is Nothing OrElse pTable.Rows.Count = 0 Then
+                Return Nothing
+            End If
+            Return pTable.Rows.Item(0)
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+End Module