[vb.net][NPOI] tabella con righe alternate

[pietro09]

Salute.
Nel codice di sotto, utilizzo la libreria NPOI per creare un file Excel.
In sintesi, creo un IWorkbook leggendo i dati da un datatable, formattando le celle.

Il codice recupera il formato originale delle celle e ne modifica alcuni formati per creare righe alternate chiaro-scure.

Il codice funziona. Il problema è che è lento, tanto da farmi pensare a codice non corretto.
Spero nel vostro aiuto.

Dim dt As System.Data.DataTable = msole.GetDataTable(gl.StringaConnessioneTest, "select * from campi ")
Dim workbook As IWorkbook = l.DataTableToWorkbook(dt)
Dim sheet As ISheet = workbook.GetSheetAt(0) 'sheet per indice

For i As Integer = 0 To dt.Rows.Count - 1
    Dim row As IRow = sheet.GetRow(i)
    For j As Integer = 0 To dt.Columns.Count - 1
        Dim cell As ICell = row.GetCell(j)
        If i = 0 Then
            'intestazione: aggiungo il bordo
            Dim hStyle As XSSFCellStyle = CType(cell.CellStyle, XSSFCellStyle)
            hStyle.SetBorderColor(Extensions.BorderSide.RIGHT, New XSSFColor(Color.LightGray)) : hStyle.BorderRight = BorderStyle.Thin
            hStyle.SetBorderColor(Extensions.BorderSide.TOP, New XSSFColor(Color.LightGray)) : hStyle.BorderTop = BorderStyle.Thin
            hStyle.SetBorderColor(Extensions.BorderSide.BOTTOM, New XSSFColor(Color.LightGray)) : hStyle.BorderBottom = BorderStyle.Thin

        Else
            'righe dati: righe alternate con bordo
            Dim dStyle0 As XSSFCellStyle = CType(CType(cell.CellStyle, XSSFCellStyle).Clone, XSSFCellStyle)
            Dim dStyle1 As XSSFCellStyle = CType(CType(cell.CellStyle, XSSFCellStyle).Clone, XSSFCellStyle)

            With dStyle0
                .SetFillForegroundColor(New XSSFColor(Color.White))

                .FillPattern = FillPattern.SolidForeground

                .SetBorderColor(Extensions.BorderSide.LEFT, New XSSFColor(Color.LightGray))
                .SetBorderColor(Extensions.BorderSide.RIGHT, New XSSFColor(Color.LightGray))
                .SetBorderColor(Extensions.BorderSide.TOP, New XSSFColor(Color.LightGray))
                .SetBorderColor(Extensions.BorderSide.BOTTOM, New XSSFColor(Color.LightGray))

                .BorderLeft = BorderStyle.Thin
                .BorderRight = BorderStyle.Thin
                .BorderTop = BorderStyle.Thin
                .BorderBottom = BorderStyle.Thin
            End With

            With dStyle1
                .SetFillForegroundColor(New XSSFColor(Color.AliceBlue))

                .FillPattern = FillPattern.SolidForeground

                .SetBorderColor(Extensions.BorderSide.LEFT, New XSSFColor(Color.LightGray))
                .SetBorderColor(Extensions.BorderSide.RIGHT, New XSSFColor(Color.LightGray))
                .SetBorderColor(Extensions.BorderSide.TOP, New XSSFColor(Color.LightGray))
                .SetBorderColor(Extensions.BorderSide.BOTTOM, New XSSFColor(Color.LightGray))

                .BorderLeft = BorderStyle.Thin
                .BorderRight = BorderStyle.Thin
                .BorderTop = BorderStyle.Thin
                .BorderBottom = BorderStyle.Thin
            End With

            If i Mod 2 = 0 Then
                cell.CellStyle = dStyle0
            Else
                cell.CellStyle = dStyle1
            End If

        End If

    Next
Next

[optime]

prima di dire che è lento di quante righe/colonne stiamo parlando?

[optime]

in più: potresti definire dStyle0 e dStyle1 *fuori* da tutti i cicli, poi nel ciclo applichi l'uno o l'altro (come fai adesso)

[pietro09]

in più: potresti definire dStyle0 e dStyle1 *fuori* da tutti i cicli, poi nel ciclo applichi l'uno o l'altro (come fai adesso)

Tabella di 12 righe più intestazione, 19 colonne.

Tempo di elaborazione: 25 s

[gibra]

Beh, se cambi per ogni singola cella, come ottimizzazione siamo a 0.
Feci una cosa analoga diversi anni fa, ma procedevo per riga, non per cella.
Io però lavoraro sul foglio Excel creato utilizzando le funzioni di Excel.

Farei così:
0. definire gli stili all'inizio
1. Seleziono l'intera area di dati interessata
2. coloro tutto con il primo colore (ed imposto anche tutto quello che è comune a tutte le celle)
3. scorro le rige e:
4. seleziono l'intera riga da colorare 'alternata',
5. e la coloro con il secondo colore

In sostanza, il concetto è lavorare sulla riga intera, anziché sulla singola cella.

[pietro09]

almeno sono certo di una cosa: l'ottimizzazione è ZERO.

Grazie del suggerimento. Ci provo

[gibra]

Tabella di 12 righe più intestazione, 19 colonne.

Tempo di elaborazione: 25 s

No, dai...! Ma scherzi?

Il foglio Excel che generavo io (tutto da codice) era di una decina di pagine (A4 orizzontale), ed oltre all'intestazione di pagina, conteneva anche righe con intestazioni di Dettaglio e di Gruppo, con relativi sub-totali parziali (Dettaglio) e sub-totali parziali (di Gruppo), e Totale Generale finale, quindi mettici anche il tempo per tutti i calcoli necessari, formattazione dei numeri, cambio font, sub-totali colorati con righe diverse, ecc. ecc. ed era una scheggia: 2/3 secondi.

Però usavo solo i metodi e le proprietà di Excel.

Ne feci diversi, di vario tipo, ecco 1 pagina di uno dei tanti:



Confesso che realizzare la parte della formattazione richiese diverso tempo per metterlo a punto bene, ma alla fine la soddisfazione c'era.

[pietro09]

non è che mi puoi passare un po' di codice di esempi per studiarmeli meglio?

[gibra]

non è che mi puoi passare un po' di codice di esempi per studiarmeli meglio?

No, perché la proprietà intellettuale del progetto è stata venduta al cliente. Io non ho più niente, e poi il codice era in VB6.0!

In ogni caso, se guardi l'immagine, il codice non ti sarebbe servito a nulla in quanto completamente diverso dalle tue esigenze.
Tra l'altro ora ricordo che il mio foglio era pure protetto e le uniche celle digitabili erano quelle dei dati di previsione che l'agente doveva inserire (celle bianche)

Guarda comunque che fare quello che vuoi tu è semplicissimo, molto più semplice del mio.

[optime]

non sempre si può usare direttamente excel - per esempio se l'applicazione gira su un server dove non c'è office.

pietro, hai seguito il mio suggerimento? ha spostato le dichiarazioni fuori?

questo è un primo passo.

secondo, potresti provare a generare il foglio con lo stile dispari, poi rileggere velocemente le righe e applicare *alle righe* pari lo stile pari.

ma fa' un passo alla volta