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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]for each 循环

共有1815人关注过本帖树形打印复制链接主题：[讨论]for each 循环

y2287958

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

等级：狐神帖子：4640 积分：33850 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/6/21 15:37:00 [显示全部帖子]

drs = DataTables("表A").Select("第1级 <> '""'")

For Each dr As DataRow In drs

Dim jiezhi As List(Of DataRow) = DataTables("表A").Select("第1级 <> '""' and [序号] > 0")

For Each jiezhia As DataRow In jiezhi

If jiezhia("第1级")<> "" Then

MessageBox.show(jiezhia("第1级"))

Exit For

Else

MessageBox.show("123")

End If

确定其中“'""'”是否存在

另外，怀疑这段代码的意义

主题：[讨论]for each 循环