麻烦老师帮忙看看为什么第二个遍历循环启用之后会一直循环完毕了都不弹出提示已经完成的内容和打开指定目录呢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 麻烦老师帮忙看看为什么第二个遍历循环启用之后会一直循环完毕了都不弹出提示已经完成的内容和打开指定目录呢

共有3668人关注过本帖树形打印复制链接主题：麻烦老师帮忙看看为什么第二个遍历循环启用之后会一直循环完毕了都不弹出提示已经完成的内容和打开指定目录呢

有点蓝

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

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

Post By：2021/7/22 13:37:00 [显示全部帖子]

没有数据吧

Dim Products As List(Of String)

Products = DataTables("数据表").SQLGetValues("d5","","d5")

msgbox(Products.Count)

If Products.Count > 0 Then

msgbox(1)

For i = 0 To Products.Count - 1

Dim Products1 As List(Of String)

有点蓝

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

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

Post By：2021/7/22 16:04:00 [显示全部帖子]

MessageBox.Show("单个表已经生成!","温馨提示")如果没有弹出来，肯定没有执行，或者中间出错了

有点蓝

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

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

Post By：2021/7/22 16:58:00 [显示全部帖子]

多嵌了一个循环，去掉For i = 0 To Products.Count - 1

主题：麻烦老师帮忙看看 为什么第二个遍历循环 启用之后 会一直循环完毕了都不弹出提示已经完成的内容和打开指定目录呢