Language: Add Datatable.First Extension method

Modules.Language/DataTableEx.vb

@@ -1,6 +1,6 @@
 Imports System.Runtime.CompilerServices
 
-Public Module DataRowEx
+Public Module DataTableEx
     <Extension()>
     Public Function ItemEx(Of T)(pRow As DataRow, pFieldName As String, Optional pDefaultValue As T = Nothing) As T
         Try
@@ -9,4 +9,16 @@ Public Module DataRowEx
             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

Modules.Language/Language.vbproj

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