主题：[求助]从后台表跨表取数填充写入数据很慢

老师你好:

有表A,表B两个后台表,其中表A的数据是从表B查询满足条件后自动写入从表B查到的数据,大约有10列数据.写入速度很慢,每行大约3-4秒. 

   表A的    DataColChangeD 用到以下代码   :

select case e.datacol.name

   case  "编号"  等

Dim dr As DataRow = DataTables("B").sqlfind("编号= '" & e.DataRow("编号") & "' ")

    If dr IsNot Nothing Then

      e.datarow("a")=dr("a")

     *****

       end if

end select

还有其他计算类代码是在填充写入后计算(速度比填充写入时的快)

由于数据要及时保存所以用到了以下代码:

If DataTables("A").HasChanges Then
DataTables("A") .Save()
End If

麻烦老师指点一下.谢谢