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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 循环语句

共有3073人关注过本帖树形打印复制链接主题：循环语句

kaiyu

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

加好友

发短信

等级：三尾狐帖子：785 积分：7969 威望：0 精华：0 注册：2014/4/21 15:16:00

循环语句

Post By：2014/7/10 9:55:00 [只看该作者]

Dim s() As String ={"胶面脏污","地毯纱疵","地毯裁边不直","边带脏污情况","边带织疵","边带条状色差","边带车缝起皱","针距","包角方法","包边方法","车缝线路织口不匀" _
        ,"车缝线路漏织口","车缝线路不直","车缝线路角线","车缝线路接头","毯面纬线弯曲情况","粘贴牢度","标签","其它"}
        For i As Integer = 0 To 18
            Dim dr(i) As DataRow =Tables("ZL成品检测明细表").DataTable.Find("检验单号 = '"& d("检验单号") &"' And 疵点类别 = 'C类疵点' and 类别名称 ='"& s(i) &'")
            If dr(i) IsNot Nothing
               Dim a As Integer
                Integer.TryParse(dr(i)("检测结果"),a)
            End If
            sum =sum + a
        Next
它会提示错误，应为表达式，是不是表达式错误还是不支持循环，请各位大神指点一下，谢谢！

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/7/10 9:57:00 [只看该作者]

For i As Integer = 0 To 18
            Dim dr As DataRow =Tables("ZL成品检测明细表").DataTable.Find("检验单号 = '"& d("检验单号") &"' And 疵点类别 = 'C类疵点' and 类别名称 ='"& s(i) &'")
            If dr IsNot Nothing
               Dim a As Integer
                Integer.TryParse(dr("检测结果"),a)
            End If
            sum =sum + a
        Next