-- mejora filtraultimo

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)