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
Try
SaveFileDialog1.Filter = "Excel Datei|*.xls"
SaveFileDialog1.Filter = "Text File|*.txt"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
GridControlLogs.ExportToXls(SaveFileDialog1.FileName)
GridControlLogs.ExportToText(SaveFileDialog1.FileName)
End If
Catch ex As Exception
MsgBox("Fehler beim Export: " & ex.Message)
MsgBox("Error in Export: " & ex.Message)
End Try
End Sub
End Class