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