- 2026-07-17 V1.4.2 Se añade compatibilidad con CardView

This commit is contained in:
2026-07-19 09:40:21 +02:00
parent f75f7a9022
commit 9aa0a5891f
5 changed files with 171 additions and 161 deletions

View File

@@ -307,7 +307,7 @@ Public Class ContenedorAplicacion
For Each l In Me._Aplicacion.Lineas
ls = New MemoryStream
ms.Add(ls)
Dim vista As TableView = l.View
Dim vista As DataViewBase = l.View
Select Case formato
Case DevExpress.Spreadsheet.DocumentFormat.Xls
vista.ExportToXls(ls)
@@ -394,7 +394,7 @@ Public Class ContenedorAplicacion
End Sub
Private Sub btSeleccionar_CheckedChanged(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
If _Aplicacion IsNot Nothing AndAlso _Aplicacion.GridSeleccion IsNot Nothing Then
Dim tv = DirectCast(_Aplicacion.GridSeleccion.View, TableView)
Dim tv = TryCast(_Aplicacion.GridSeleccion.View, TableView)
If tv IsNot Nothing Then
If btSeleccionar.IsChecked Then
_Aplicacion.GridSeleccion.SelectionMode = MultiSelectMode.MultipleRow