diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 4fd95269a..fe022d55c 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -1742,7 +1742,7 @@ Namespace Extensiones
             Dim TmpDr As DataRow = Nothing
 
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                If RowFilter <> "" Then
+                If RowFilter <> "" OrElse Orderby <> "" Then
                     Dim Dv As New DataView(dt, RowFilter, Orderby, DataViewRowState.CurrentRows)
                     If Dv.ToTable.Rows.Count > 0 Then
                         TmpDr = Dv.ToTable.Rows(Dv.ToTable.Rows.Count - 1)