这种代码很容易死循环
If e.DataCol.name = "piao号4" Then
If e.DataRow("工位") = "910" Then
If e.DataRow.isnull("piao号3") = False Then '这句不能少,否则无法增加新数据行
Dim Filter As String = "[piao号3] = '" & e.DataRow("piao号3") & "' and [_Identify] <>" & e.DataRow("_Identify")
Dim drs As List(Of DataRow) = DataTables("钣金开料单").Select(Filter)
Dim dr16 As String = e.DataRow("piao号4")
systemready=false
For i As Integer = 0 To drs.Count - 1
drs(i)("piao号4") = dr16
Next
systemready=true
End If
End If
End If
If e.DataCol.name = "piao号4" Then
If e.DataRow("工位") = "920" Then
If e.DataRow.isnull("冲孔程序2") = False Then '这句不能少,否则无法增加新数据行
Dim Filter17 As String = "[冲孔程序2] = '" & e.DataRow("冲孔程序2") & "' and [工位] = '" & e.DataRow("工位") & "' and [_Identify] <>" & e.DataRow("_Identify")
Dim drs17 As List(Of DataRow) = DataTables("钣金开料单").Select(Filter17)
Dim dr17 As String = e.DataRow("piao号4")
systemready=false
For i As Integer = 0 To drs17.Count - 1
drs17(i)("piao号4") = dr17
Next
systemready=true
End If
End If
End If
加好友 
发短信
Post By：2022/11/8 9:20:00 [显示全部帖子]
