无法创建新的堆栈防护页面 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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("开料完成人")

end if

上面是 datacolchanged 里面的代码，如果筛选出的数据行数不多时，可以顺利执行；如果筛选出的数据行数比较多时，就会出现“无法创建新的堆栈防护页面”这个提示。估计是 Fox...Next 循环语句那里的问题。请问有什么办法改善一下吗？

Fox...Next 循环语句干嘛用的？

如果某行的"开料完成人"输入了数据，那么将当前显示出来的所有行之"开料完成人"里面都输入相同的数据。

End If

if vars("a") = false

vars("a") = true

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("开料完成人")

vars("a") = false

end if

现在运行没问题了。请问三行 vars 语句在这里怎样理解呢？

控制不重复执行。也就是只有第一次触发的时候执行，循环里给"开料完成人"赋值的时候也会触发这个事件的，但是这时不会重复执行循环

主题：无法创建新的堆栈防护页面