在FOR循环中调用了另外一个窗体，窗体代码执行后，如何返回到前面的循环中继续往下循环

Question

在FOR循环中调用了另外一个窗体，窗体代码执行后，如何返回到前面的循环中继续往下循环

Answer 1

把另外一個窗體的代碼當作一個子程序或者一個函數來看，在for循環裡直接調用它就可以了

Answer 2

我的语句是这样的：
Dim i As Integer
   ssql = "select * from ksct"
adors.Open ssql, adoconn
   adors.MoveFirst
   With adors
     If Not .BOF Or Not .EOF Then
       For i = 1 To 10
       qqq = .Fields("zkzh")
      qhjpd = .Fields("pd")
       If qhjpd = False Then
          MsgBox qhjpd
          Set adoconn = CreateObject("adodb.connection")
Set adors = CreateObject("ADODB.Recordset")
adoconn.Open "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=D:\;"
ssql = "update ksct set wordcj=1 where zkzh='" & Form1.qqq & " ' "
          adors.Open ssql, adoconn, 3, 3
      Else
             MsgBox qhjpd
               Kill "d:\word.doc"
             FileCopy "d:\kspf\1200010101\word.doc", "d:\word.doc"
                 wordtt = .Fields("word")
             frmMain.Show '调用一个窗体
      End If
         .MoveNext
       Next
      
     End If
   End With可是frmMain.Show 执行后就直接退出来了，他不返回到FOR中去呀

Answer 3

frmMain.Show 1     '调用一个窗体

Answer 4

frmMain.Show 1后面的1是什么意思？

Answer 5

我的意思是我的程序他的确开始循环了，可是只是执行一次frmmain这个窗体，加了vbmodal为1也不行呀？

Answer 6

如下测试吗！把问题“抽”出来解决。
for i=1 to 3
frmMain.Show 1
next i