[求助]一段代码，老师看看如何写好点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码如下：

DataTables("原料采购入库明细").Load

For Each dr As DataRow In DataTables("原料采购入库通知").dataRows

DataTables("原料采购入库通知明细").ReplaceFor("是否制单", True, "[通知单号] = '" & dr("通知单号") & "'")

功能：明细表上的通知单号如果在通知单表中找到，说明已经制单，此时将是否制单列改为TRUE

疑问：这样写代码执行效率好吗？看到FOR Each语句我就感觉一但表的数据多了，效率会很低，老师有更好的方法写这一段代码吗？

缺陷：这段代码只能把“是否制单”列的FALSE改为TRUE，一但发生明细表将原有一行数据删除，通知单表对应记录的“是否制单”还是TRUE，这个问题如何解决？

谢谢老师！！！

主题：[求助]一段代码，老师看看如何写好点