change excel to text file export

This commit is contained in:
Jonathan Jenne 2019-07-03 14:31:29 +02:00
parent 772fc802a7
commit db20d97253

View File

@ -412,12 +412,12 @@ Public Class frmKonfig
Private Sub SpeichereLogAlsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichereLogAlsToolStripMenuItem.Click Private Sub SpeichereLogAlsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichereLogAlsToolStripMenuItem.Click
Try Try
SaveFileDialog1.Filter = "Excel Datei|*.xls" SaveFileDialog1.Filter = "Text File|*.txt"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
GridControlLogs.ExportToXls(SaveFileDialog1.FileName) GridControlLogs.ExportToText(SaveFileDialog1.FileName)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Export: " & ex.Message) MsgBox("Error in Export: " & ex.Message)
End Try End Try
End Sub End Sub
End Class End Class