25 lines
723 B
VB.net
25 lines
723 B
VB.net
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
|