From b16be6b736b7cf70c3dcfc79d3e6b5bd19a26753 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Mar 2025 08:06:51 -0700 Subject: [PATCH] -- mejora filtraultimo --- App_Code/modExtensiones.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)