update的问题

Question

rsTL.AddNew
       For j = 1 To Tfieldnum
         If textT(j).BackColor = &HC0FFC0  And rsSL.Fields(ComboS(j).Text).Value = "" Then
          MsgBox "导入错误！关键字段不能赋空值"
          Exit For
         End If
         rsTL.Fields(textT(j).Text).Value = rsSL.Fields(ComboS(j).Text).Value
       Next
       rsTL.Update为什么这里用update就说我需要更新的挂起太多，而用updatebatch就可以成功
谢谢指点

Answer 1

你可以试着把UPDATE 放在循环里面。