进度条问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 进度条问题

共有5580人关注过本帖树形打印复制链接主题：进度条问题

edisontsui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

进度条问题

Post By：2022/11/24 9:56:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:进度条问题.rar

附页的进度条代码(第1页和第7页黄底黑字)是放在 DataColChanged 里面的，但是执行时会出现如下提示，注释掉进度条代码就不会有提示了，请问是什么原因呢？

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：表，组装送货单总表，DataColChanged

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

edisontsui

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2022/11/24 10:50:00 [显示全部帖子]

'设置进度条

Forms("进度条1").open

Dim lncnt As Integer = drs1.Count

Dim p As WinForm.ProgressBar

If Forms("进度条1").opened Then

p = e.Form.Controls("ProgressBar1")

p.Maximum = lncnt '设置最大值

p.Minimum = 0 '设置最小值

p.Value = 0 '设置当前值

end if

我加了上面红色字体的三句代码，还是一样出现提示，而且不会显示进度条。

edisontsui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2022/11/24 11:19:00 [显示全部帖子]

'设置进度条

Forms("进度条1").open

Dim lncnt As Integer = drs1.Count

Dim p As WinForm.ProgressBar

If Forms("进度条1").opened Then

p = Forms("进度条1").Controls("ProgressBar1")

p.Maximum = lncnt '设置最大值

p.Minimum = 0 '设置最小值

p.Value = 0 '设置当前值

end if

上面的改法出现提示：未声明 "Form"。它可能因其保护级别而不可访问。

下一主题 >> << 上一主题

主题：进度条问题