主题：[求助]按条件批量更新列内容

 在dataColChanged写如下代码If e.DataCol.Name = "料件品号" Then
    Dim t As DataTable
    Dim s As String
    Dim t1 As String = E.NewValue
    Dim q As new QueryBuilder
    q.ConnectionName = "ERP"
    q.TableName = "临时"
    q.SelectString =  " Select MV002 AS 采购员 Fro m {INVMB} LEFT JOIN {CMSMV} ON MB067=MV001 WHERE MB001 = '" & t1 & "'"
    t = q.Build
    For Each r As DataRow In t.DataRows
        s = s + r("采购员")
    Next
    e.DataRow("采购员") = s
    DataTables.Unload("临时")
End If
实现料件品号变更后，采购员列自动取我们ERP数据库中对应的采购员信息。目前存在的问题就是运行速度太慢，复制几千个料件品号黏贴进狐表后，每秒处理十几行。有其他方法实现类似功能不？或者做个按钮，一下处理全部的行，要怎么实现？麻烦大家了