如下以代码：

forms("进度条窗口").Show
If forms("进度条窗口").Opened Then
    Dim p As WinForm.ProgressBar=Forms("进度条窗口"). Controls("ProgressBar1")
    Dim l As WinForm.Label =Forms("进度条窗口"). Controls("Label1")
    Dim word As String=l.text
    Dim t As Table=Tables("表目录")
    \'\'\'
    p.Minimum = 0 \'设置最小值
    p.Maximum = t.Rows.count \'设置最大值
   
    For Each r As Row In t
        r("顺序号")=r.Index+1
        \'    t.Position=r.Index
        r.DataRow.Save
        p.Value = r.Index  \'设置当前值
        l.Text=word & str(r.Index+1/p.Maximum*100) & "%"
    Next
    Forms("进度条窗口").Close
End If

Functions.Execute("刷新导航页签")

1、如红字部分，想实现动态的百分比变化，但是实际效果是压根显示不出来，进度条的进程比较正常！怎么解决呀？

2、另外展示进度条的窗口如果用成模式窗口就不动了，若是用成独立窗口，又担心任务进展未完成时用户进行别的操作，该如何解决呀？

 第一个问题：

试试这样

l.Text= word & str((r.Index+1)/p.Maximum*100) & "%"

Application.DoEvents()

 第二个问题：不能用模式窗口，你可以这样

forms("进度条窗口").Show

forms("进度条窗口").ToMost

LockBaseMainForm

\'执行代码

UnLockBaseMainForm

LockBaseMainForm是锁定主窗口，我的窗口不是主窗口，而是模式窗口，比如是：forms("设置窗口")，窗口有保存按钮，点保存按钮时调用forms("进度条窗口")，显示进度情况，但我想在进度条窗口显示过程中，用户不可以操作forms("设置窗口")，如何实现？

试验了StopRedraw和ResumeRedraw，但是效果不理想，比如竟然仍可以在进度条窗口显示过程中，拖动forms("设置窗口")并可以选定窗口中的表，不知怎么杜绝！

嗯嗯，把代码放到afterload事件。

接上面的思路，如果将进度条窗口设为模式窗口，将进度代码放入afterload事件的话，那针对不同的表，我就得设计N多个进度条窗口，这明显浪费资源，不是个好的解决方案。我想就设计一个进度条窗口，不同的窗体中的表都可以调用它。

那就没办法了，模式窗口就是要特殊处理的。