以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于死循环问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131101)
--  作者：hongyefor
--  发布时间：2019/2/16 15:32:00
--  关于死循环问题

我想在 AfterOpenProject 里做一个死循环，让进程跟着Tables("标识").的标识列走

总的有A/B/C/D/E/F/G

如果当“标识”列为"B"时Forms("启动连接").Controls("Label2")显示"正在连接数据源,请稍后....  " ，当“标识”列为"E"时退出死循环。

Dim sqlqtu As WinForm.Label = Forms("启动连接").Controls("Label2")

Dim bsz As Row = Tables("标识").Current
Dim pf As String
Do While bsz("标识") = "G"

    If bsz("标识") = "B"
        sqlqtu.text = "正在连接数据源,请稍后....  "
    ElseIf bsz("标识") = "E"
        Exit Do
    End If
Loop

 

不知道为什么不行，请帮我改改

[此贴子已经被作者于2019/2/16 15:51:05编辑过]
--  作者：有点蓝
--  发布时间：2019/2/16 16:35:00
--  
要这种效果？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73365

……

Do While bsz("标识") = "G"

    If bsz("标识") = "B"
        sqlqtu.text = "正在连接数据源,请稍后....  "

Application.DoEvents \'如果不行还是参考上面用多线程处理
    ElseIf bsz("标识") = "E"
        Exit Do
    End If
Loop