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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 循环代码问题

共有2169人关注过本帖树形打印复制链接主题：循环代码问题

有点蓝

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

加好友

发短信

等级：超级版主帖子：107127 积分：544878 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/17 10:57:00 [显示全部帖子]

提示什么错误？MessageBox弹出什么内容？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107127 积分：544878 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/17 11:51:00 [显示全部帖子]

说明MessageBox.show(wl("物料编号")) 后面的代码出错了，如果屏蔽了错误，检查一下日志

有点蓝

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

加好友

发短信

等级：超级版主帖子：107127 积分：544878 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/17 12:26:00 [显示全部帖子]

For Each wl As DataRow In wls
i = i + 1
MessageBox.show(wl("物料编号"))
With wb.AddInputGroup("form1","ipg" & i,wl("物料编号"))

MessageBox.show(i)
For c As Integer = 0 To nms.length -1

MessageBox.show(nms(c) )
With .AddInput(nms(c) & i,nms(c) & ":","text")

MessageBox.show(wl(nms(c)))
                                    .Value = wl(nms(c))
                                    .Readonly= True
                                End With
                            Next
                        End With
                    Next

有点蓝

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

加好友

发短信

等级：超级版主帖子：107127 积分：544878 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/17 13:46:00 [显示全部帖子]

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。

还不行请上传实例测试

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

主题：循环代码问题