- 2026-07-17 V1.4.2 Se añade compatibilidad con CardView
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user