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


  共有2245人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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
    Next
    
    count0 +=count
Next

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

 回到顶部