From 9deeec86e49fa5608a8482a8662c05236d93a6c0 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 16 Dec 2021 13:53:21 +0100
Subject: [PATCH] Language: Add Datatable.First Extension method

---
 Modules.Language/{DataRowEx.vb => DataTableEx.vb} | 14 +++++++++++++-
 Modules.Language/Language.vbproj                  |  2 +-
 2 files changed, 14 insertions(+), 2 deletions(-)
 rename Modules.Language/{DataRowEx.vb => DataTableEx.vb} (50%)

diff --git a/Modules.Language/DataRowEx.vb b/Modules.Language/DataTableEx.vb
similarity index 50%
rename from Modules.Language/DataRowEx.vb
rename to Modules.Language/DataTableEx.vb
index 23245305..fb130dfa 100644
--- a/Modules.Language/DataRowEx.vb
+++ b/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
diff --git a/Modules.Language/Language.vbproj b/Modules.Language/Language.vbproj
index 3384ce30..1598a26f 100644
--- a/Modules.Language/Language.vbproj
+++ b/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" />