这个涉及具体的业务,别人无从下手。
你修改一个数据,就修改全部行:
For Each d5 As DataRow In DataTables("配合比").Select("编号 = '" & r3("材料编号") & "'")
next
而且修改的不止一个表的全部数据,有的甚至是将整个表的行数翻倍增加,这当然快不了。
这是设计思路问题,要从设计思路入手。