-- mejora filtraultimo
This commit is contained in:
@@ -1742,7 +1742,7 @@ Namespace Extensiones
|
|||||||
Dim TmpDr As DataRow = Nothing
|
Dim TmpDr As DataRow = Nothing
|
||||||
|
|
||||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
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)
|
Dim Dv As New DataView(dt, RowFilter, Orderby, DataViewRowState.CurrentRows)
|
||||||
If Dv.ToTable.Rows.Count > 0 Then
|
If Dv.ToTable.Rows.Count > 0 Then
|
||||||
TmpDr = Dv.ToTable.Rows(Dv.ToTable.Rows.Count - 1)
|
TmpDr = Dv.ToTable.Rows(Dv.ToTable.Rows.Count - 1)
|
||||||
|
|||||||
Reference in New Issue
Block a user