Fix. If ComboBox3.Count = 0. Print info from ComboBox4

i-nex · Dec 5, 2013 · 8f894b4 · 8f894b4
1 parent 73f65f6
commit 8f894b4
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/i-nex/.src/Reports/MDRIVES_REPORT.module b/src/i-nex/.src/Reports/MDRIVES_REPORT.module
@@ -42,7 +42,13 @@ Public Sub _inits()
  For All2 = 1 To Finfosys.ComboBox4.Count
 
   refresh()
-
+  For repcount = 0 To Report.Count
+    FReport_Gen.ProgressBar1.Value = repcount / Report.Count
+    DATA_RETURN = DATA_RETURN & "\n" & Report[repcount]
+    Wait 0.01
+
+   refresh()
+   Next
   For All = 1 To Finfosys.ComboBox3.Count
    refresh()
 
@@ -64,4 +70,4 @@ Public Sub _inits()
 
  Shell "echo '" & DATA_RETURN & "'>>" & FReport_Gen.ButtonBox1.Text & "" Wait
 
-End
+End