If e.DataCol.Name = "开料完成人" Then
If e.newvalue = "" Then
If e.DataRow("特殊产品").contains("锯切") OrElse e.DataRow("特殊生产").contains("锯切") Then
e.DataRow("开料") = "未锯切"
e.DataRow("开料日期") = Nothing
Else
e.DataRow("开料") = "未开料"
e.DataRow("开料日期") = Nothing
End If
Else
If e.DataRow("特殊产品").contains("锯切") OrElse e.DataRow("特殊生产").contains("锯切") Then
e.DataRow("开料") = "已锯切"
e.DataRow("开料日期") = Date.now
Else
e.DataRow("开料") = "已开料"
e.DataRow("开料日期") = Date.now
End If
End If
Dim n As Integer = CurrentTable.Rows.Count - 1
For i As Integer = 0 To n
Dim r As Row = CurrentTable.Rows(i)
r("开料完成人") = e.DataRow("开料完成人")
Next
end if
上面是 datacolchanged 里面的代码，如果筛选出的数据行数不多时，可以顺利执行；如果筛选出的数据行数比较多时，就会出现“无法创建新的堆栈防护页面”这个提示。估计是 Fox...Next 循环语句那里的问题。请问有什么办法改善一下吗？
加好友 
发短信
Post By：2022/5/24 17:20:00 [显示全部帖子]
