MainTable.AddNew(1000)
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值
For i As Integer = 0 To MainTable.Rows.Count - 1
    MainTable.Rows(i)("第一列") = i
    If i Mod 100 = 0 Then
        p.Value = i \'当前值为已经完成的行数
    End If
Next

上面的代码，正常执行。

 跳出进度条窗口？看看是不是这个问题 http://www.foxtable.com/help/topics/1476.htm

 最好给一个小例子。

 代码位置问题，开始按钮代码这样写

Forms("进度条").show
Dim p As WinForm.ProgressBar
p = Forms("进度条").Controls("ProgressBar1")
p.Maximum = 100 \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值

For i As Integer = 0 To 100
    Tables("表A").AddNew
    Dim dr As Row = Tables("表A").Current
    dr("第一列") = i
    dr("第二列") = i
    dr("第三列") = dr("第一列")*dr("第二列")
    dr.save
    If i Mod 1 = 0 Then
        p.Value = i \'当前值为已经完成的行数
    End If
Next

加个application。doevents

 或者在【进度条】窗口用下面代码

e.Form.baseform.show
application.Doevents
Dim p As WinForm.ProgressBar
p = Forms("进度条").Controls("ProgressBar1")
p.Maximum = 100 \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值

For i As Integer = 0 To 100
    Tables("表A").AddNew
    Dim dr As Row = Tables("表A").Current
    dr("第一列") = i
    dr("第二列") = i
    dr("第三列") = dr("第一列")*dr("第二列")
    dr.save
    If i Mod 1 = 0 Then
        p.Value = i \'当前值为已经完成的行数
    End If
Next

1、用代码设置成无边框：

2、进度条的停靠属性设置成 fill