主题：循环语句

 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
它会提示错误，应为表达式，是不是表达式错误还是不支持循环，请各位大神指点一下，谢谢！

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

Dim dr As DataRow =Tables("ZL成品检测明细表").DataTable.Find("检验单号 = '"& d("检验单号") &"' And 疵点类别 = 'C类疵点' and 类别名称 ='"& s(i) &'")

谢谢，已搞定