change excel to text file export
This commit is contained in:
parent
772fc802a7
commit
db20d97253
@ -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
|
||||||
Loading…
x
Reference in New Issue
Block a user