INIT OK 20.1.4
This commit is contained in:
+3
-3
@@ -132,7 +132,7 @@ Public Class BallanceVC
|
||||
|
||||
Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
|
||||
Dim _worksheet As Worksheet = _workbook.Worksheets("Borító")
|
||||
Dim _worksheet_range As DevExpress.Spreadsheet.Range
|
||||
Dim _worksheet_range As DevExpress.Spreadsheet.CellRange
|
||||
|
||||
_worksheet_range = _worksheet.GetUsedRange()
|
||||
|
||||
@@ -162,7 +162,7 @@ Public Class BallanceVC
|
||||
End Sub
|
||||
|
||||
Private Sub aSpreadImportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImportXML.Execute
|
||||
Dim openFileDialog1 As New Windows.Forms.OpenFileDialog()
|
||||
Dim openFileDialog1 As New System.Windows.Forms.OpenFileDialog()
|
||||
|
||||
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
|
||||
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
|
||||
@@ -175,7 +175,7 @@ Public Class BallanceVC
|
||||
End Sub
|
||||
|
||||
Private Sub aSpreadExportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadExportXML.Execute
|
||||
Dim openFileDialog1 As New Windows.Forms.SaveFileDialog()
|
||||
Dim openFileDialog1 As New System.Windows.Forms.SaveFileDialog()
|
||||
|
||||
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
|
||||
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
|
||||
|
||||
Reference in New Issue
Block a user