以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  循环语句  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53536)
--  作者：kaiyu
--  发布时间：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
--  发布时间：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
--  作者：有点甜
--  发布时间：2014/7/10 9:57:00
--  
所给的代码没有错，是其它代码的问题吧？
--  作者：有点甜
--  发布时间：2014/7/10 9:59:00
--  
Dim dr(i) As DataRow =Tables("ZL成品检测明细表").DataTable.Find("检验单号 = \'" & d("检验单号") & "\' And 疵点类别 = \'C类疵点\' and 类别名称 =\'" & s(i) & "\'")
--  作者：kaiyu
--  发布时间：2014/7/10 10:08:00
--  

还是提示错误，应为表达式

Dim dr As DataRow =Tables("ZL成品检测明细表").DataTable.Find("检验单号 = \'"& d("检验单号") &"\' And 疵点类别 = \'C类疵点\' and 类别名称 =\'"& s(i) &\'")
--  作者：Bin
--  发布时间：2014/7/10 10:13:00
--  
Dim dr As DataRow =Tables("ZL成品检测明细表").DataTable.Find("检验单号 = \'"& d("检验单号") &"\' And 疵点类别 = \'C类疵点\' and 类别名称 =\'"& s(i) & "\'")
--  作者：kaiyu
--  发布时间：2014/7/10 10:30:00
--  

谢谢，已搞定