主题：有劳高手们帮忙分析一下系统变慢的原因

这个涉及具体的业务，别人无从下手。

你修改一个数据，就修改全部行：

For Each d5 As DataRow In DataTables("配合比").Select("编号 = '" & r3("材料编号") &  "'")

next

而且修改的不止一个表的全部数据，有的甚至是将整个表的行数翻倍增加，这当然快不了。

这是设计思路问题，要从设计思路入手。