如何写个遍历的嵌套 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何写个遍历的嵌套

共有3000人关注过本帖树形打印复制链接主题：如何写个遍历的嵌套

zhangchi96

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

加好友

发短信

等级：二尾狐帖子：555 积分：5037 威望：0 精华：0 注册：2012/2/11 13:27:00

如何写个遍历的嵌套 发帖心情

Post By：2016/4/27 12:23:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160427122001.png

在窗体中插入了两个表，左表是数据记录，右表是统计结果

想把某一个学校某一个学科某一年级的记录中成绩大于0的统计出来填写在右表中，

好像要

for

...

请教一下怎么写，我写了好多中方式都失败了。请高手们指教。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/27 14:12:00 [只看该作者]

参考代码

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

joe_xgp

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

加好友

发短信

等级：幼狐帖子：151 积分：1306 威望：0 精华：0 注册：2013/5/13 13:28:00

Post By：2016/4/27 15:05:00 [只看该作者]

Dim m As Integer
Dim n As Integer
m = 0
n = 0
For Each r1 As Row In Tables("A").rows
    For Each r2 As Row In Tables("B").rows
        If r2("学校名称") = r1("学校名称") And r2("年级") = r1("年级") And r2("考试号") > 0 Then
            m = m + 1
            If r2("学校名称") = r1("学校名称") And r2("年级") = r1("年级") And r2(r1("学科")) > 0 Then
                n = n + 1
            End If
        End If
    Next
    r1("登分数") = n
    r1("学生数") = m
    m = 0
   n = 0
Next