Added clsCurrDataFrame

IDEMSInternational · Apr 25, 2016 · 4e57b6e · 4e57b6e
1 parent a7cb8d4
commit 4e57b6e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/instat/dlgExportDataset.vb b/instat/dlgExportDataset.vb
@@ -59,13 +59,13 @@ Public Class dlgExportDataset
                 chkOptions.Enabled = False
                 grpOptions.Enabled = False
                 clsWriteCSV.AddParameter("file", Chr(34) & strFilePath & Chr(34))
-                clsWriteCSV.AddParameter("x", ucrAvailableSheets.cboAvailableDataFrames.SelectedItem)
+                clsWriteCSV.AddParameter("x", clsRFunctionParameter:=ucrAvailableSheets.clsCurrDataFrame)
                 ucrBase.clsRsyntax.SetBaseRFunction(clsWriteCSV)
             Case ".xlsx"
                 clsWriteXLSX.SetRCommand("write.xlsx")
                 chkOptions.Enabled = True
                 clsWriteXLSX.AddParameter("file", Chr(34) & strFilePath & Chr(34))
-                clsWriteXLSX.AddParameter("x", ucrAvailableSheets.cboAvailableDataFrames.SelectedItem)
+                clsWriteXLSX.AddParameter("x", clsRFunctionParameter:=ucrAvailableSheets.clsCurrDataFrame)
                 ucrBase.clsRsyntax.SetBaseRFunction(clsWriteXLSX)
         End Select
     End Sub