Files
egtbeamwall/EgtBEAMWALL.ViewerOptimizer/Statistics/OptimizerStatisticsV.xaml.vb
T
Emmanuele Sassi 891bbd4a08 Aggiunto materiale su Machgroup
Corretta sezione
Rimossa selezione grezzo
Gestione blocco interfaccia su verifica e simula
Aggiunta correzione con cancellazione cartelle progetti
Tolto ricaricmento progetto nel passaggio da proj a prod
Iniziat studio esportazione statistiche
Migliorati messaggi su nesting
Cambiata gestione tipo progetto
2021-06-29 11:38:19 +02:00

21 lines
797 B
VB.net

Public Class OptimizerStatisticsV
Private Sub cc() Handles PrintBtn.Click
ExportToExcelAndCsv()
End Sub
Private Sub ExportToExcelAndCsv()
dgDisplay.SelectAllCells()
dgDisplay.ClipboardCopyMode = DataGridClipboardCopyMode.IncludeHeader
ApplicationCommands.Copy.Execute(Nothing, dgDisplay)
Dim resultat As String = CType(Clipboard.GetData(DataFormats.CommaSeparatedValue), String)
Dim result As String = CType(Clipboard.GetData(DataFormats.Text), String)
dgDisplay.UnselectAllCells()
Dim file1 As System.IO.StreamWriter = New System.IO.StreamWriter("C:\Temp\test.csv")
file1.WriteLine(result.Replace(","c, " "c))
file1.Close()
MessageBox.Show(" Exporting DataGrid data to Excel file created.xls")
End Sub
End Class