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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]嵌套循环计数

共有2238人关注过本帖树形打印复制链接主题：[求助]嵌套循环计数

jyh7081

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

等级：四尾狐帖子：957 积分：8440 威望：0 精华：0 注册：2012/10/3 13:25:00

[求助]嵌套循环计数 发帖心情

Post By：2021/1/11 16:58:00 [只看该作者]

蓝老师好！

这段循环计数的代码， count0计数结果不对，是哪里问题？

'''

Dim count As Integer

Dim count0 As Integer

Dim Products As List(Of String)

Products = dt.GetValues("单位","标注 = true")

For Each Product As String In Products

count = 0

......

For Each r As DataRow In dt.Select("单位 = '" & Product & "' and 标注 = true")

count +=1

count0 +=count

msgbox("批量接收 " & count0 & " 条记录")

有点蓝

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

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

Post By：2021/1/11 17:11:00 [只看该作者]

不就是获取【标注 = true】的所有行数么，不需要这么复杂吧，一句代码就行了

msgbox(dt.compute("count(单位)","标注 = true"))

主题：[求助]嵌套循环计数