@有点甜:现在又遇到一个问题，同样是这张表，条件多了一些，我自己按照上面的代码做了一下，在执行的时候，总是意外退出，帮忙看看是哪里写错了呢?谢谢
条件是,1.项目值为链纹时,当镀区宽度小于18,不良区数大于8,镀层判定为不合格;当镀区宽度在19与52之间,不良区数大于4,镀层判定为不合格,当镀区宽度在53以上,不良区数大于2,镀层判定为不合格。项目值为拉伤时，不良区数大于0，镀层判定为不合格。项目值为有孔时，不良区数大于0，镀层判定为不合格。项目值为亮点时,不良区数大于0,镀层判定为不合格,否则为合格 。
3.镀层1和镀层2其中1人符合条件时,都判定为不合格
我的代码是:If e.DataCol.Name.StartsWith("镀层") Then
e.DataRow("镀层判定") = Nothing
For i As Integer = 1 To 2
Dim v3 As String = e.DataRow("镀层" & i & "_项目")
Dim v4 As String = e.DataRow("镀层" & i & "_不良区数")
Dim v5 As String = e.DataRow("镀区宽度")
If v3 = "拉伤" AndAlso v4 > 0 OrElse v3 = "有孔" AndAlso v4 > 0 OrElse v3 = "亮点" AndAlso v4 > 0 OrElse v3 = "链纹" AndAlso v5 < 18 AndAlso v4 > 8 OrElse v3 = "链纹" AndAlso v5 < 18 AndAlso v5 > 52 AndAlso v4 > 4 OrElse v3 = "链纹" AndAlso v5 > 53 AndAlso v4 > 2 Then
e.DataRow("镀层判定") = "不合格"
Exit For
Else
e.DataRow("镀层判定") = "合格"
End If
Next
End If
加好友 
发短信
Post By：2014/8/8 9:40:00 [显示全部帖子]
