'MsgBox("3") '测试通过
For Each r As Row In Tables("钣金开料单").rows
If r("工位") = "910" Then
If r("每piao长度个数") = 1 Then
' r("piao号3") = r("piao号2") '2022/11/8 取消
Dim r1 As Row = Tables("钣金开料单").rows(r.index - 1)
If r("piao号1") = r1("piao号1") AndAlso r("长度分类") = r1("长度分类") AndAlso r("冲孔程序3") = r1("冲孔程序3") AndAlso r("每piao长度个数") = r1("每piao长度个数") Then
r("piao号3") = r1("piao号3")
Else
r("piao号3") = r("piao号2")
End If
r("piao号4") = r("piao号2")
Else
r("piao号3") = r("piao号2")
r("piao号4") = r("piao号2")
End If
End If
Next
'MsgBox("4")
测试过好几次，提示3都可以出来，但提示4没出来就闪退了。于是我就把上面红色的一行代码取消了，目前暂时是没事了。那为什么这句话会有影响呢，还是上面那段的其他代码有影响？
加好友 
发短信
Post By：2022/11/8 9:00:00 [显示全部帖子]
