以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  问个遍历问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31008)

--  作者:lsfdf
--  发布时间:2013/4/8 16:45:00
--  问个遍历问题
遍历后,打开1个窗口填入1个信息,然后点打印,关闭该窗口,进入下一个循环,现在只能执行1个,请教下是什么原因呢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


--  作者:Bin
--  发布时间:2013/4/8 16:49:00
--  
并非只是执行了一个.而是都执行了.只不过你窗口已经打开了.他继续瞬间执行了.多次OPen你感觉不出来.
[此贴子已经被作者于2013-4-8 16:50:24编辑过]

--  作者:lsfdf
--  发布时间:2013/4/8 16:55:00
--  
如何暂停下等待客户操作才进行下一次呢
--  作者:lsfdf
--  发布时间:2013/4/8 23:22:00
--  
设置了全局变量,还是不行,只循环了1次,就退出,这个该如何写呢
Dim hs() As String = {"a","b","c","d"}
For Each h  As String In hs
    MessageBox.show(h)
    Tables("表a").Filter = "[第一列] = \'" & h & "\'"
    Forms("窗口2").open()
    If   pause = True
        Return
    End If
Next