changed if block as requested

Patowhiz · Nov 13, 2024 · f5d8872 · f5d8872
1 parent 1097c5f
commit f5d8872
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/instat/dlgUseTable.vb b/instat/dlgUseTable.vb
@@ -134,20 +134,17 @@ Public Class dlgUseTable
     End Sub
 
     Private Sub ucrChkExport_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrChkExport.ControlContentsChanged
-        lblFileType.Visible = False
-        cboFileType.Visible = False
-        ucrFilePath.Visible = False
-
-        ucrBase.clsRsyntax.GetAfterCodes().Clear()
-
         If ucrChkExport.Checked Then
             lblFileType.Visible = True
             cboFileType.Visible = True
             ucrFilePath.Visible = True
-
             ucrBase.clsRsyntax.AddToAfterCodes(clsSaveGtRFunction)
+        Else
+            lblFileType.Visible = False
+            cboFileType.Visible = False
+            ucrFilePath.Visible = False
+            ucrBase.clsRsyntax.GetAfterCodes().Clear()
         End If
-
         TestOKEnabled()
     End Sub